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1.0 GENERAL PROGRAM INFORMATION. 

1.1 Program Purpose (Abstract) 

This program has the ability to test memory from address 
000000 to address 757777. It does so using:' 

A. Unique addressing techniques 

B. Worse case noise patterns, and 

C. Instruction execution thruout memory. 

There is also a special routine to type out all unibus 
address ranges which do not timeout, as well as two(2) toggle 
in address tests pre -ided in section 6.1 of this document. 

The intent of this program is to test as comprehensively as 
possible all memory systems manufactured by DEC without 
concentrating on any one system. Although the tests relate 
to general designs they may be complete fc certain systems. 
E.G. Any core memory from the 8K MM11-L on up need not have 
any other addressing or worst case patterns run but in order 
to completely test the MS11-K MOS memory another diagnostic 
is required. This test is also not intended to be a* 100% 
test of the memory. Other tests that do I/O may find memory 
problems that this test is unabl® to. 



1.2 System Requirements 

A. Hardware Requirements 

PDP11 family processor with a minimum of 16K of memory. 

optional ... 

Any parity memory control module. 

KT11 memory management. 

B. Software Requirements 

The smallest unit of memory this program will recognize 
is 4K. If any address in a 4K bank causes a time out 
trap, that entire bank of memory is ignored by the 
program . 

The program is designed to exercise the vector portion of 
memory (locations 0-776) in exactly the same manner as 
the rest of memory. To make thi'. possible, without 
requiring memory management, no software traps are used 
in the program. This means that if memory management is 
not available or is disabled ( r .^12«1), if the program is 
relocated out of bank 0, if location 0-776 are selected 
for test* and if an unexpected hardware trap occurs, th@ 
results will be unpredictable. 



•') 
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The program has the proper interface code to ■] 1°w 
running under the automated manufacturing test line 



system - ACT1 1 and APT. 



1 .3 



1 .4 



Related Documents and Stariards 



Programming Practices - Document No. 175-003-009-01 
PDP-11 MAINDEC SYSMAC Package - MAINDEC-11 -DZQAOC2-D 
The applicable Memory System Maintenance Manual 
The applicable Circuit Schematics 



A. 
B. 

C. 

D. 

Diagnostic Hierarchy Prerequisites 

Before running this program, a CPU diagnostic should be run 
to verify the functionality of the processor and PDP-11 

instruction set. 

If memory management is to be used, then the KT11 diagnostic 

should also be run before this program. 

PDP-11/20 - MAINDEC-1 1-DZ0KC 
PDP-11/34 - MAINDEC-1 1-DFKTH 
PDP-11/O - MAINDEC-1 1-DB0EA 
OR MAINDEC-1 1-DCQKC 
PDP-11/45 - MAINDEC-1 1-DCQKC 
PDP-11/60 - MAINDEC-1 1-DQKDA 
KT11-C - MAINDEC-1 1-DCKTA THRU DCkfF 
KT11-D - MAINDEC-1 1-DBKTA THRU DBKTF 

Assumpti ns 

This program assumes the correct operation of the CPU and, if 
used, the memory management option. 



2.0 
2.1 
2.1.1 
2.1.2 

2.1.3 



2.1.4 



OPERATING INSTRUCTIONS 

Loading and Starting Procedures 

Load the program using any standard absolute loader. 

Starting address 200: 
Normal program execution. 
Starting address 204: 

Allocs the operator to input, via teletype conversation 
first and last addresses to he exercised, ar.J a data pattern 
to be used in tests 6 and 7. 

Starting Address 210: 

Restart program using previously selected parameters. 
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2.1.5 Starting Address 214: 

Restore loaders and halt. This routine is capable of 
relocating the program back to banks and 1 if the program 
was halted while running the top two banks of memory. There 
are special procedures required for this situation. 

A. If memory addresses 0-1000 have nt been exercised, 
either through parameter selection (SA=2C4) or by running 
wi th SW05=1 t then: 

Load Address 214, 
Press START. 

B. If running without memory management, then: 

Load Address <214+relocat ion factor> 

(Relocation factor is typed when the program is 

relocated) , 
Press START. 

C. If running with memc.^y management and the unibus has not 
been initialized (via reset instruction, start swi tch, 
etc. ) , then: 

Load Address 777707 (PC) 
Deposit 214 
Press CONTinue 

D. If running with memory management and thr unibus has been 
in i t i al i zed: 

Load Address 772340 (KIPAR0) 

Deposit <(relocation factor)/100> 

(Example: Relocation f actor=5400Q0, then 

deposit 005400) 

Load Address 777572 (SR0) 

Deposit 000001 

Load Address 777707 (PC) 

Deposit 214 

Press Continue 



2.1.6 t Starting address 220: 

Byte address memory ma>_ typeout routine. This routine 
performs DATI, DATIP, DAT0, and DATOB on all possible 
addresses, and types the ranges of addresses which do not 
cause a timeout trap. 



2.2 Special Environments 

If the program is run in quick verify mode under ACT11 or 
APT11 the program is done after the first pass. Also, the 
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1 



program does not relocate to test the lower 8K of memory. 
2.3 Program Options 

HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUT 



SW15 ■ 1 OR UP 

SW14 - 1 OR UP 

SW13 x 1 OR UP 

SW12 ■ 1 OR UP 



SW1 1 a 1 OR UP. . 

SW10 - 1 OR UP. . 

SW9 = 1 OR UP,. 

SW8 = 1 OR UP.. 

SW7 = 1 OR UP.. 

SW6 = 1 OR UP, . 



NOTE: With parity 
whi 1 e runni 



INHABIT MEMORY MANAGEMENT (INITIAL 
START ONLY) 

INHIBIT SUBTEST ITERATION 

RING BELL ON ERROR 

LOOP ON ERROR 

LOOP ON TEST IN SWR<4:0> 

INHIBIT PROGRAM RELOCATION 

INHIBIT PARITY ERROR DETECTION 



error detection enabled, a memory failure 
ng the worse case noise tests (non-parity) 
can cause a parity error. The error printout on a 
parity error does not type the good data. Thus a bit 
drop or pickup will not be typed as such. It is best 
to run the program for 1 pass with parity disabled, 
then, restart thr program with paritv enabled. 



SW5 



1 OR UP 



INHIBIT EXERCISING VECTOR AREA 
(LOCATIONS 0-1000) . 



2.4 EXECUTION TIMES 

Execution time is dependent on type of memory, and amount of 
memory. Worse case run times with 900ns memorys are: 

a. For Non-Parity Memory 

First Pjss: 65 seconds for first 13k + 15 

seconds for each additional 16k. 

Full Pass: 3 minutes 40 seconds for first 16k + 

3 minutes for each additional 16k. 

Iteration Inhibited: same as first pass 



For Parity Memory 
First Pass: 



1 minute 40 seconds per 16k. 
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Full Pass: 8 minutes per 16K 

Iteration Inhibited: same as first pass 

3.0 ERROR INFORMATION 

3.1 Error Reporting 

There are a total of 31(8) ^ypes of error reports generated 
by the program. Some '•" the key column hciding mnemonics are 
described below for clarity: 

PC a Program Counter of error detection code. 
(V/PC=P/PC) 

V/PC = Virtual Program Counter. This i -i where the error 
detection code can be found in the program listing. 



iili 



ifiiii 



P/PC = Physical Program Counter. This is where the error 
detection code is actually located in memory. 

TRP/PC = Physical Program Counter of the code which caused a 
trap. 

MA = Memory Address 

REG = Parity REGister address. 

PS = Processor Status word. 

IUT = Instruction Under Test. 

S/B = What contents Should Be. 

WAS = What contents WAS. 



3.2 Error Hal ts 



With the 'HALT. ON ERROR' switch (SW15) not set there are 
several programmed 'HALTS' in the program: 

A. In the error trap service routine for unexpected traps to 
vector 4. This one will occur if a 2nd trap to 4 occurs 
before the error report for the first has had a chance to 
be printed out. 

B. In the relocation routine if the program is being 
relocated back to the first 8K of memory and the program 
code was not able to be transferred properly. 

C. In the case of error reporting and there is no terminal 
to allow the information transfer. 
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D. In the power fail routine if the power up sequence was 
started before the power down sequence had a chance to 
compl ete i tse 1 f . 

E. In the Memory mapping routine or any of the address 
control routines, failures to find a meaningful map. 



5.0 



PERFORMANCE AND PROGRESS REPORTS 
Not app 1 ' cabl e 

DEVICE INFORMATION TABLES 



The following is a picture view of a parity control status 
registers, which will show bit assignments and definitions, 
to provide a handy reference: 



5.1 



CORE PARITY REGISTER 



I I I I I I I I I t 
!PE! ! ! I ADDRESS 
I I I I I I I I I I 



I I I I I I I 

! ! !WP! !AE! 

I I I I I I I 



15 14 13 12 11 10 09 08 07 06 05 04 03 02 0. 00 

Bit assignments are defined as follows: 



BIT15 
BITS 11-5 



PARITY ERROR 
ERROR ,'")DRESS 



WRITE WRONG PARITY 



ACTION ENABLE 



HIGH ORDER ADDRESS 
BITS OF ADDRESS OF 
PARITY ERROR (BITS 
17-11 OF ADDRESS) 

NORL-AL PARITY (ODD) 
WHEN CLEAR; OTHER 
PARITY (EVEN) WHEN SET 

NO ACTION WHEN CLEAR 
TRAP TO VECTOR 114 
WHEN SET 



5.2 



MOS PARITY REGISTER 



I I I I I I I I I I I I I I I I I 
!PE! !!!!!!!!!!! !WP' !AE! 
I I I I I I I I I I I I I I I I I 

15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 
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BIT ASSIGNMENTS ARE DEFINED AS FOLLOWS: 



BIT15 
BIT02 



BITOO 



PARITY ERROR 
WRITE WRONG PARITY 



ACTION ENABLE 



NORMAL PARITY (ODD) 
WHEN* CLEAR; OTHER 
PARITY (EVEN) WHEN SET 

NO ACTION WHEN CLEAR 
TRAP TO VECTOR 114 
WHEN SET 



5.3 



MS11-K CSR 



I I I I I 
!DES !SI! ! 
I I I I I 



I 



I I I I 

ADDRESS 
I I I I 



I I I I I I 
!SE!IP!DC!EC!EEI 
I I I I I I 



15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 

BIT ASSIGNMENTS ARE DEFINED AS FOLLOWS: 



BIT15 DOUBLE ERROR 
BIT 13 SET INHIBIT fajDE 



BITS 11-5 ERROR ADDRESS 



BIT04 



BIT03 



SINGLE ERROR 
INHIBIT MODE POINTER 



WHEN THIS BIT IS SET 
TO A 1 , IT ENABLES THE 
INH MODE POINTER TO 
INHIBIT EITHER THE 
FIRST OR SECOND 1 6K 
FRP^ EVER GOING INTO 
TH@ DIAG. CHECK OR 
ECC DISABLE MODE. 

WHEi* BIT02 CLEARED 
CONTAINS HIGH ORDER 
BITS OF ADDRESS OF 
PARITY ERROR(BITS 
17-11); WHEN BIT02 
SET CONTAINS CHECK 
BITS FOR ECC. 



SET WHENEVER 
ERROR OCCURS 



SINGLE 



THE INHIBIT MODE 
PC-INTER WORKS IN 
CONJUNCTION WITH THE 
SET INHIBIT MODE BIT. 
WHEN BIT 13 IS SET TO 
A 1 , A 16K PORTION OF 
MEMORY IS INHIBITTED 
FROM OPERATING IN iHE 
ECC DISABLE MODE OR 
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BIT02 



BIT01 



BITOO 



DIAGNOSTIC CHECK A 

DISABLE ERROR CORRECTION 
DOUBLE ERROR ENABLE 



DIAGNOSTIC CHECK MODE. 
THE INHIBIT MODE 
POINTER INDICATES 
WHICH 16K IS BEING 
INHIBITED, , t BIT 3 =1 

THE SECOND 16K OF 
MEMORY IS INHIBITTED. 
WHEN BIT 13 IS SET TO 
A 0, BIT 3 BECOMES 
INOPERATIVE. 

WHEN SET ENABLES 
READ-WRITE OF CHECK 
BIT C (SEE BITS 11-5) 

WHEN SET NO ERROR 
CC-'JRECTION TAKES PLACE 

WHEN SET ENABLES TRAP 
TO VECTOR 114 ON 
DOUBLE ERROR. 



6.0 



SUB-TEST SUMMARIES 



6.1 Section 1: Address Tests. 

These tests verify the uniqueness of every memory address. 

TEST 1 Writes and reads the value of each memory Word 
Address into that Memory location. After all memory has b*»en 
written, all locations are checked again. 

TEST 2 Writes the byte value of each address into that byte 
location and checks it. 

TEST 3 Writes the complement of each word address into that 
location and checks it. 

TEST 4 Writes the 4K bank number into each byte of that bank 
and checks i t. 

TEST 5 Writes the complement of the bank number into each 
byte of that bank and checks it. 



6.2 Section 2: Worst Case Noise Tests. 

These are intended to apply maximum stress to 
types of PDP^11 core memories. 



the 



TEST 6 and TEST 7 Are supplied to allow the operator to 
select a single word data pattern (SA=s204) and SCOPE on 
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either the writing (DATQ) in TEST 6 or the reading (DAT!) in 
TEST 7 of that data. 

TEST 10 Wr'tes and then checks a series of single word 
patterns which are designed to stress parity memory. 

TEST 11 Writes all memory with l's in every bit and then 
"Ripples" a "0" through it. 

TEST 12 Writes all memory with 0's in every bit and then 
"Ripples" a "1" through it. 

TEST 13,14,15, AND 16 Write a pattern which complements when 
address BIT 3 XOR BIT 9 complements. 

TEST 17 Writes wrong parity in each byte of memory and 
checks that the parity detection logic works. This test is 
skipped for non-parity memory. 

TEST 20 Write "random" program code through memory and 

checks it. 



6.3 



Section 3: Instruction Execution Tests. 



This group of tests place instructions in the memory under 
test, then executes the instructions, and finally, checks 
that they executed correctly. 

TEST 21 Executes an instruction which does l DATI and a DATO 
on the memory under test. 

TEST 22 Executes an instruction which does a DATI and a 
DATOB on the low by", i of memory under test. 

TEST 23 Executes an instruction which does a DATI and a 
DATOB on the high byte. 



TEST 24 Executes an instruction which does* 
DATO. 



DATIP and 



TEST 25 Executes an instruction which does a DATIP and 

DATOB on the low byte. 

TEST 26 EXECUTES AN INSTRUCTION WHICH DOES A DATIP and 

DATOB on the high byte. 



6.4 



Section 4: Mos Tests 



TEST 27 -Writes a pattern of 000377 through memory, then 
compliments it addressing downward, cot.Vi iments the new 
pattern addressing upward, compliments the third pattern 
addressing upward and finally compliments this new AB 
patterns addressing downward. 



.'•) 
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TEST 30-31 Write a checkerboard through memory then stalls 
for 2 seconds and iften verifies no data has changed. 



Special Toggle In Tests 



6.5.1 Toggle-in-program #1 

The following is a toggle in rremory address twst. This test 
is useful when an address selection failure is suspected 
involving the first 8K of memory. This program writes the 
value of each address into itself starting with the lower 
limit and continuing to the upper limit. After all addresses 
have been written each address is checked for the correct 
contents starting with the upper limit and continuing to the 
lower limit. 



COMMENT 
GET FIRST ADDRESS 
TO TEST 

(EXAMPLE START ADDRESS) 
SAVE IN R1 
CHECK UPPER LIMIT 
(IN SWITCH REGISTER) 
BRANCH IF AT UPPER LIMIT 
LOAD VALUE INTO ADDRESS 
STEP TO NEXT ADDRESS 
LOOP UNTIL DONE 
SAVE UPPER LIMIT 
CHECK IF AT LOWER LIMIT 
BRANT-: IF DONE 
CHECK DATA WRITTEN 
BRANCH IF OK 
ERROR 
LOOP BACK 

After toggling the program LA = 10**set upp-ir limit**, start 

NOTES: The upper limit address obtained from the switch 
register may be changed during program operation. 
However occasionally the program may halt because of 



LOCATION 


CONTENTS 




MNEMONIC 


10 


012700 




MOV #50, R0 


* 1 2 


000050 






14 


010001 




MQV R0.R1 


16 


020037 


1$: 


CMP R0,@#SWR 


20 


177570 






22 


001403 




BEO 2$ 


24 


010010 




MQV R0 f (R0) 


26 


005720 




TST (R0)+ 


30 


000772 




BR 1$ 


32 


010004 


2$: 


MOV R0,R4 


34 


02C001 


3$: 


CMP H0 f R1 


* 36 


001767 




3E0 1$ 


40 


024000 




CMP -(R0) ,R0 


42 


001774 




BEQ 3$ 


44 


000000 




HALT 


46 


000772 




BR 3$ 



(The best procedure when changing 
p the program make the change and 
lower l i_:i ~~.„i__. /^«v . . . 

to any desired address. 



'SWITCH 

limit 



BOUNCE ' 

to stop the program make the change 

continue.) The lower limit address (12) may be patched 



6«S»2 Toggle-in-Program #2 

The following is also a toggle in program to be used with 
toggle-i -program #1 for more complete address testing. This 
program writes the complement value of each address into 
itself starting with the upper limit and continuing to the 
lower limit. After all addresses have been written each 
address is checked for the correct contents starting with the 
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lower limit address and continuing to the upper limit. 
Toggle in the following patches to the program above. 

These are the patches to toggl e-in-program #1: 



LOCATION CONTENTS 
12 100 
36 001404 



BEQ 4$ 



COMMENT 

;CHANGE LOtelER LIMIT 

; BRANCH TO PROGRAM #2 



These are the additions to toggl e-in-program #1 : 



L0CATI0M 


CONTENTS 




MNEMONIC 


50 


"010402 


4$; 


MOV R4,R2 


52 


005142 


5$: 


COM -(R2) 


54 


020201 




CIVSP R2.R1 


56 


001375 




BNE 5$ 


60 


020204 


6$: 


CMP R2.R4 


62 


001755 




BEQ 1$ 


64 


010203 




MOV R2,R3 


66 


005103 




COM R3 


70 


020322 




CMP R3,(S2 


72 


001772 




BEQ 6$ 


74 


000000 




HALT 


76 


OOc'770 




BR 6S 



C0MME K,T 
GET UPPER LIMIT 
COMPLEMENT ADDRESS 
CHECK IF AT LOWER LIMIT 
LOOP UNTIL DONE 
CHECK IF AT UPPER LIMIT 
GO TO PROGRAM 1 IF DONE 
GET VALUE OF ADDRESS 
COMPLEMENT VALUE 
CHECK ADDRESS 
BRANCH IF OK 
ERROR 
GO CHECK NEXT ADDRESS 



7.0 



PROGRAM FUNCTIONAL FLOfef CHARTS 
Attached 



8.0 



PROGRAM ISTING 
Attached 
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* SWITCH SETTINGS AND * 

* BASIC DEFINITIONS * 

* * 



* TRAP CATCHER AND * 

* STARTING ADDRESSES * 



$$$$$$$$$$$$$*$$$$ .*#$$ 
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SA^210 



= 300 



SA=214 



*********** 

**RESTAR ** 
*********** 

RESTAR I 
***************** 

* SET RESTART *- 

* ^LAG (R5=0) * 

* * 

**!} .************* 



*********** 

**RESTOR ** 

*********** 

I 
***************** 

* SET RESTORE * 

* FLAG (R5=PC) * 

* ■ * 
***************** 

K— — 

REST1 V 
***************** 



* SETUP STACK * 



***************** 
I 
V 

/ HAS MEMORY BEEN \N0 
/ MAPPED? \ — 

'„ .„--—_- 

I YES 
REST2 V 



/MEMORY MANAGEMENT\NO 
/ AVAILABLE? \~ 

/ ™_---_--_----- 

I YES 
V 

*********************** 

* SET UP MEMORY MGMT . * 

* MAP PROGRAM INTO * 

* VIRTUAL BANKS & 1 * 
*********************** 

I<— — 

I 
I 
V 



************ 

-> *STARTA * 

************ 



I 
V 

*********************** 
*RESET SP AND JUMP TO * 
* RELOCATED PROGRAM * 



*********************** 
I 
I 
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/ PROGRAM MAP \YES 

/POINTING TO BANKS 0\ 

/ & 1? \ 

I NO 

V REL0(59) 

** RELOCATE PROGRAM TO ** 
** BANKS & 1 ** 
** ** 

* $ * * ':•*#*$*************** 

K 

V 



/ RESTART FLAG \YES 
/ (R5*0)? \ 

/ \ 



— >*START1(16)* 



I NO 

V RESLDR(59) 



** 



** 



=572 



** RESTORE LOADERS ** 
** ** 

I 

V 

**HALT ** 
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**** ******* 
**$PWRDN ** 
*********** 

I 

V 
*********************** 

* SILLUP -> VECTOR * 

* SAVE REGISTERS * 

* $PWRDN -> VECTOR * 
*********************** 

I 

V 
*********** 
**HALT ** 
**** ******* 
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*********** 
**$PWRUP ** 
*********** 

I 
V 

*********************** 

* WAIT LOOP FOR TTY * 

* RESTORE REGISTERS * 

* $PWRDN -> VECTOR * 
*********************** 

I 

V $PRINT(63) 
******************** 
/ TYPE POWER FAIL / 
/ MESSAGE / 

/ / 

******************* 
I 
V 
*********** 

**RETURN ** 
*********** 



*********** 
**$ILLUP ** 
*********** 

I 

V 
*********** 

**HALT ** 

*******•:*** 
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.^1100 



*********************** 

* STANDARD 'SYSMAC' * 

* COMMON TAGS * 



*********************** 



*********************** 

* APT MAILBOX AND * 

* ETABLE * 

* * 
*********************** 



****.:****************** 

♦COMMON TAGS FOR THIS * 

* PROGRAM * 

* * 
*********************** 



*********************** 

* RELATIVE ADDRESSING * 

* TABLE. ERROR DATA * 

* POINTER * 
*********************** 



*********************** 

* MEMORY PARITY WORSE * 

* CASE PATTERNS TABLE * 

* * 
*********************** 



*********************** 

* MEMORY PARITY * 
♦REGISTER ADDRESS AND * 

* MAP TABLE * 
*********************** 



*********************** 
*F3R0R MESSAGE POINTER* 
* TABLE * 



*********************** 
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** ********* 

SA=2Q4 * SELECT ** 

*********** 

I 
***************** 

* SET FLAG FOR * 

* SELECTING * 
PARAMETERS * 

***************** 
I 



*********** 

SA-200 **START ** 
*********** 

I 
***************** 
*CLEAR FLAG FOR * 

* SELECTING * 

* PARAMETERS * 
***************** 

I 



I 
STARTA V 

* * . •• ******************** 

* CLEAR COMMON TAGS * 

* INIT SP INIT PF * 

* VECTOR * 
*********************** 

I 

V 

*********************** 

* SET UP SOFTWARE * 
*SWITCH REGISTER IF NO* 

* HARDWARE SWR * 
*********************** 

I 
V 
******************** 
/TYPE PROGRAM TITLE/ 
/ (ONCE ONLY) / 

/ / 

******************* 

I 
V 

/ HAS PROGRAM \YES 
/ RELOCATED? \™ 

/ \ 



I NO 

V 
************************* 
** ** 

** ^AVE LOADERS ** 
** ** 

************************* 

I 

I 

I 

V 



************ 

->*RESTAR(02)* 

************ 
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/ CLEAR 'MMAVA' . \YES 

/ MEMORY MANAGEMENT \ 

/ EXITS AND DESIRED? \ I 

V 

X NO *********************** 

I *SET UP MEM MGMT. SET * 

I * 'MMAVA* FLAG TYPE * 

I * 'KT11 AVAILABLE' * 

| *********************** 

I I 

I 
V 

***************.•* 

* * 
♦TURN OFF CACHE * 

* * 
***************** 

I 
I 
V 



, :: -,:-«:: : x : , : .^ 
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MAPMEM 

*********************** 

* RESET SP SET UP * 

* POINTERS TO MEMORY * 

* MAP. * 
***$*****$****$******** 

I 
V 

*** ***************** 

/ / 

/TYPE "MEMORY MAP:"/ 

/ / 

******************* 

I 

>x 

V 

*********************** 

*REAJ AND WRITE MEMORY* 

* LOCATION (AUTO-INC *- 

* POINTER) * 
*********************** 

I 
V 

NO /END OF A 4K RANK \ 

/OF MEMORY REACHED? \ 

/ \ 

I YES 
V 

**** ******************* 

* SET FLAG IN MAP TO * 

* INDICATE FULL 4K. * 

* SAVE ADR POINTERS * 

*********************** 

I 

K 

V 



TIMEOUT TRAP 



NO / UPDATE POINTERS \ 

/ TO NEXT 4K BANK. \ 

/ END (128K) REACHED? \ 



*********************** 
*ADJUST SP UPDATE ADP * 

* POINTER TO START OF * 

* NEXT 4K. * 
*********************** 



I YES 
V 



/DOES FIRST 16K OF\NO 
/ MEMORY EXIST? \ — 
/_ _ \ 

I YES 
V 

****** ****** 

*GMPR(12) * 
******* ***** 



******************** 
/TYPE INSUFFICIENT / 
->/ MEMORY MESSAGE / 

/ / 

******************* 

I 
*********** 

**HALT ** 
***** ****** 



.') 
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*********** 

SA*220 **TIMOUT ** 

*********** 

I 
V 

/ MEMORY \NO 

/ MANAGEMENT? \ 

/ \ 

I YES 

V MMINIT(55) 
************************* 

** SET UP MEMORY ** 
♦♦MANAGEMENT REGISTERS ** 
** ** 

************************* 

K 

V $PRINT(63) 

******************** 
/TYPE M BYTE MEMORY / 
/ MAP" / 

/ / 

******************* 

I 



*** 

*A*- 

*** 



*********************** 

* INIT TYPEOUT FLAG * 
*INIT ADDRESS POINTER * 

* SET TIMEOUT VECTOR * 
*********************** 

V 

*********************** 
*D0 A DATI; THEN DATI ,* 

* DATO; THEN DATI, *- 

* DATIP, DATOB * 
*********************** 

I 
V 



TIMEOUT TRAP 



/TYPE "FROM" FLAG \N0 
/ SET? (R0=-1) \— 
/ \ 

I YES 

I 

I 

I 

V 



*********************** 

* * 

->* ADJUST SP * 



*********************** 
I 



*** NO / TYPE "TO" FLAG \ 

>*B*< » / SET? (R0«0?) \ 

*** / \ 

I YES 

I 

I 

I 

V 
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*** 

*B*- 

*** 



*** 

*A*<- 
*** 



*** 

*A*<- 

*** 



NO 



NO 



*********************** 

* UPDATE MEM Mb.vIT * 

* REGISTERS + ADDRESS *<- 

* POINTER * 
*********************** 

I 

V 
*** 
*A* 
*** 



$PRINT(63) 

********* -le ********** 
/ / 

/ TYPE "FROM" / 

/ / 

*>; .**************** 
I 

V $TYPAD(63) 

******************** 

/ / 

/ TYPE ADDRESS / 

/ /' 

******************.- 

K 

V 

***************** 

* COMPLEMENT * 

* TYPEOUT FLAG * 

* (RO) * 
***************** 

>I 

V 

***************** 

*UPDATE ADDRESS * 

* POINTER * 

* * 
***************** 

I 

V NOT=0 

/ \ 

--/ 4K BANK BOUNDRY? \ 
/ \ 

I YES 
V 



$PRINT(63) 

******************** 

/ / 

/ TYPE "TO" / 

/ / 

***<* *************** 

I 

V $TYPAD(63) 

******************** 

/ / 

/ TYPE ADDRESS-1 / 

/ / 

******************* 
1 



/MEMORY MANAGEMENT\ 
— / AVAILABLE? \ 

/ _ \ 

I YES 
V 



NO / \ 
/ END Qp MEMORY? \ 

/ \ 



I YE5 



:> 
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/ TYPE "TO" FLAG \NO 
/ ' SET? R0 = \— 
/ \ 

I YES 
V 

******************** 

/ / 

/ TYPE M T0 M / 
/ / 

******************* 

I 

V 

********** ********** 

/ / 

/ TYPE ADDRESS-1 / 

/ / 

******************* 

K * 

V 
*********** 

**HALT ** 
*********** 
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************ 

*GMPR(08) * 
************ 

GMPR I 
*********************** 
*SET UP TABLE POINTERS* 
*SET UP TIMEOUT VECTOR* 



*********************** 
->I 

GMPRA V 
*********************** 

* :_EAR FLAG. TEST * TIMEGUT TRAP 

* REGISTER ADR FOR *—»»»»»» 

* TIMEOUT * l 
*********************** GMPRB V 

j *********************** 

V * ADJUST SP. SET FLAG * 

**. ******************** *T0 INDICATE REGISTER * 

*SAVE REGISTER ADR IN * * NOT PRESENT * 

* SECOND TABLE (MPRX) * *********************** 

* * I 
*********************** I 

GMPRC V 

NO /CLEAR MAP. END 0F\ 
/ TABLE REACHED? \ 

/ \ 

I YES 
V 

*********************** 

* TERMINATE SECOND * 

* TABLE (MPRX) RESET * 

* TIMEOUT VECTOR * 
*********************** 

I 
V 

/ ANY PARITY \N0 
/ REGISTERS FOUND? \ 

/ \ l 

1 " V 

t y£2 ******************** 

j / TYPE "NO MEMORY / 

I / PARITY REGISTERS / 

I / FOUND". / 

T ******************* 

I I 

I v 

T ************ 

I *MANUAL(15)* 

I ************ 

V 
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*********************** 

* INIT ALL REGISTERS * 

* SET UP POINTERS * 

* * 

* >■ ******************** 

I 
MAPRB V 
*********************** 
•WRITE- WRONG PARITY IN* 

* EACH BANK OF MEMORY * 

* * 
*#******#*«******«'•'<'*** 

I 

V 

*********************** 

* FIND WHICH REGISTER * 
♦CONTROLS WHICH BANK. * 

* * 
*********************** 

I 
TMAP V 
*********************** 
*TYPE PARITY REGISTER * 

* ADDRESS * 



*********************** 

I 

V TYPMAP(62) 
************************* 
** TYPE MAP OF MEMORY ** 
** CONTROLLED BY EACH ** 
** REGISTER ** 
************************* 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

V 
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CTRLS 
*********************** 

>*CLEA'R PARITY REGISTER* 

* * 

****** ***************** 

I 

V 



/ \NO 

/ ALL BITS CLEAR \— 
/ \ 

I YES 

v < 

******* ****** ********** 

* ' SET AND CLEAR * 
*NON-RESERVED BITS OF * 

* REGISTERS * 
*********************** 

I 
V 



/ \NO 

/ SET AND CLEAk OK? \— 
/ \ 



I YES 
V< 



YES / \ 

/ MORE REGISTERS? \ 

/ \ 



$ERR0R(63) 

************************* 

** ERROR: REGISTER ** 

->** DOESN'T CLEAR ** 

## ** 

************************* 

I 



$ERR0R(63) 

************************* 

** ERROR: BIT STUCK IN ** 

->** REGISTER ** 

** ** 

************************* 

I 



RESCHK V 

*********************** 

* SET BITS IN ALL * 
*REGISTERS. DO "RESET"* 



*********************** 
I 
V 

/ ALL REGISTERS \N0 
CLEARED? \— 
/ \ 



I YES 

K 

I 
V 



SERR0RC63) 

************************* 

** ERROR: RESET FAILED ** 

->** TO CLEAR REGISTER ** 

** ** 

************************* 

I 
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^PRJNT(63) 
******************** 
/TYPE: -ADDRESS IN / 

->/ UNMAPPED MEMORY* / — 

/ / 

******************<:' 



*********** 

**MANUAL ** 
*********** 

MANUAL I 

/SELECT PARAMETER \N0 
/ FLAG SET" \- 



/ 



\ 



, >j YES 

MANUL1 V $RDpCT(63) 
******************** 

/ / 

/GET FIRST ADDRESS / 

/ / 

******************* 

I 
V 



NO 



J 



/FIRST ADDRESS IN \ 
— / MAPPED MEMORY? \ 
/ \ 

,- >X YES 

V $RD0CT(63) 
******************** 

/ / 

/ GET LAST ADDRESS / 

/ / 

******************* 

I 
V 



NO 



NO 



/ LAST ADDRESS \ 
— / HIGHER THAN FIRS I \ 
/ ADDRESS? \ 



I YES 
V 



/ LAST ADDRESS IN \ 
■*-/ MAPPED MEMORY? \ 
/ \ 

I YE$ 
I 
******************** 

/ GET SELECTABLE / 
/ CONSTANT / 

/ / 

******************* 

K ^ 

I 
I 
I 
I 
V 
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MANU12 
*********************** 

* MAKE NECESSARY * 
*ADJUSTMENTS TO FIRST * 

* AND IAST ADDRESSES * 

*4 ******************** 
I 
I 



*********** 

**START1 ** 
*********** 

I 

I 

I 
START1 V 
*********************** 
♦INITIALIZE EVERYTING * 
* FOR A NEW PASS * 



*********************** 
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TST1 INITMM(55) 

************************* 

** INITIALIZE ADDRESS ** 
** ' POINTERS ** 

** ** 

******.*****«********#*** 
> I 

V 

*********************** 

* WRITE PHYSICAL * 

*ADDRESS VALUE IN EACH* 

• * WORD LOCATION * 

*********************** 

I 

V MMUP(56) 

************************* 

MORE MEMORY ** JPDATE ADDRESS ** 

** POINTERS ** 

** ' ** 

************************* 

IDONE * 

V INITDN(55) 

************************* 



** INITIALIZE ADDRESS 
** POINTERS 



** 

** 



** ** 
************************* 

>I 

V 

/ DOES EACH \N0 

/ LOCATION HAVE \ 

/ ADDRESS VALUE? \ 



MORE MEMORY 



I YES 

K 

V MMD0WN(56) 
********* **************** 
** UPDATE ADDRESS ** 
— * POINTERS ** 
** ** 

************************* 

IDONE 

I 

I 

I 

V 



$ERR0R(63) 

************************* 

**ERROR: ADDRESS VALUE ** 
-** NOT IN LOCATION ** 

** ** 

**********************#*# 

I 

— i 



CZQMCFO 0-1 24K MEM EXER 16K 
TEST 2 



OECFLO VER 00.07 20-FEB-78 07:58 PAGE 18 



TST2 INITMM(55) 

************************* 
** INITIALIZE ADDRESS ** 
** POINTERS ** 
** 
************************* 

> I 

V 
*********************** 

* JRITE PHYSICAL * 
♦ADDRESS VALUE IN EACH* 

* BYTE LOCATION * 
*********************** 

I 

V MMUP(56) 
***.********************* 

MORE^MEMORY _.. "^ATE^DDRESS « 

** 

************************* 
IDONE 

V INITDN(55) 

************************* 
** INITIALIZE ADDRESS ** 
** POINTERS ** 
** 
************************* 

> I $ERROR ( 63 ) 

V ************************* 
/~nncrpIrH~RYTE"~\NO **ERROR: ADDRESS VALUE ** 

/ D0 L 0CATf0N Hill T >**NOT IN BYTE LOCATION ** 

/ ADDRESS_VALUE?_ \ ************************* 

I YES I 

x <_„.- 

V MMD0WN(56) 
************************* 

MOREJEMORY^** UPDATE^DDRESS « 

** 
************************* 
IDONE 
I 
I 
I 
V 
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TST3 INIT0N(55) 

************************* 

** INITIALIZE ADDRESS ** 
** POINTERS ** 
** *# 

*** ********************* 

-, > i 

V 

*********************** 

* WRITE ONE'S * 

* COMPLEMENT OF ADR * 

* INTO WORD LOCATION * 

******************!.**** 
I 

V MMD0WN(56) 
************************* 

MORE MEMORY ** UPDATE ADDRESS ** 

** POINTERS ** 

** ** 

************************* 
IDONE 

V INITMM(55) 
************************* 

»* INITIALIZE ADDRESS ** 
** POINTERS ** 
** ** 
************************* 
>! 

V SERR0R(63) 

--.»«.__ -.«.„-. ^ .p. -.«— ************************* 

/ DOES EACH WORD \N0 **ERROR: COMPLEMENT OF ** 

/HAVE COMPLEMENT OF \ >**ADR. NOT IN WORD LOC.** 

/ ADR. VALUE? \ ** ** 

_„- ._. — __«. _-, __.— — ******* *******«********$* 

I YES I 

K «~i 

V MMUP(5C) 
************************* 

MORE MEMORY ** UPDATE ADDRESS ** 

r .*** POINTERS ** 

** ** 

************************* 

IDONE 

I 

I 

I 

V 
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TST4 INITMM(55) 

************************* 
** INITIALIZE ADDRESS ** 
** POINTERS ** 
** ** 

****** ****************** 

>I 

V 
*********************** 

* WRITE BANK # VALUE * 

* INTO EACH BYTE * 

* LOCATION * 
*********************** 

I 

V MMUP(56) 
************************* 

MORE MEMORY ** JPDATE ADDRESS *> 

** POINTERS ** 

** ** 

************************* 
IDONE * 

V INITMM(55) 
************************* 

** INITIALIZE ADDRESS ** 
** POINTERS ** 
** ** 

************************* 

>I $ERRQR(63) 

************************* 

/ DOES EACH BYTE \N0 ** ERROR: BANK # VALUE ** 

/ HAVE ITS BANK H \ >** NOT IN LOCATION ** 

/ VALUE? \ ** ** 

_ . . . ************************* 

I YES X 

x< 1 

V MMUP(56) 
************************* 

MORE MEMORY ** UPDATE ADDRESS ** 

** POINTERS ** 

** ** 

************************* 
IDONE 
I 
I 
I 
V 
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TST5 INITDN(5§) 

*****$*$*******$«$**#*$** 

** INITIALIZE ADDRESS ** 
** POINTERS ** 

** ** 

#***************«*$#*$*** 

> i 

V 

*wr:;E 1 's complement * 

* OF BANK NUMBER INTO * 

'* BYTE LOCATION * 

********#$«*$*#*$*$$#*$ 

I 

V MMD0WN(56) 

«***?*********$******«**#* 

MORE MfMORY ** UPDATE ADDRESS ** 

-- ■ . ** POINTERS ** 

#* ** 

**************$$*******$* 
IDONE 

V INITDN(SS) 
******#******#***$******* 

** INITIALIZE ADDRESS ** 
** POINTERS ** 
** ** 

**«**********$$*$$****«** 

V 



MORE MEMORY 



/ DOES EACH BYTE \N0 

/HAVE COMPLEMENT OF \ — 

/ BANK VALUE? \ 

I YES 

K 1 

V MMD0WN(S6) 

************«$***$$***«** 

** UPDATE ADDRESS ** 
-** POINTERS ** 

** ** 

IDONE 

I 

I 

I 

V 



$ERR0R(S3) 

** $****** $*******$* ****** 

**&RR0R: COMPLEMENT OF ** 

->** BANK # NOT IN BYTE *# 

** LOC. ** 

******* ***$***** * ******** 

I 

— — *«_x 



IP 
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TEST 6 



I 
I 

TST6 V INITMM(55) 
************************* 
** INITIALIZE ADDRESS ** 
** POINTERS ** 



** 

*** •> 



** 



MORE MEMORY 



********************* 
>! 

V 

*********************** 
♦WRITE A CONSTANT INTO* 
*ALL LOCATIONS. (USER * 
* SELECTABLE) * 
******************-' **** 
I 

V MMUP(56) 
************************* 
** UPDATE ADDRESS ** 
-** POINTER ** 
** ** 

************************* 
IDONE 
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TST7 INITMM(55) 

************************* 

** INITIALIZE ADDRESS ** 
** ' POINTERS ** 
** ** 

****** .****************** 

>I 

V 



MORE MEMORY 



/ CONSTANT FROM \N0 

/ TST6 IN ALL \ >- 

/ . LOCATIONS? \ 

X YES 

!<-„, „ 

V MMUP(5§) 

* * * * * :******************} 

** UPDATE ADDRESS ** 

-*• POINTERS ** 

#* ** 

************************* 

IDONE 
V 



$ERR0R(S3) 

************************* 

**ERROR: CONSTANT FROM ** 
->**TST6 NOT IN LOCATION ** 

** ** 

***********************$$ 

I 8 

„I 



/LOOP ON TEST 6 JN\YES 
/ SWR? \— 
/ \ 



NO 
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TST10 

*********************** 

* SET UP DATA TABLE * 

* POINTER * 



*********************** 
>I 

V CKPMER(61) 

************************* 
**CF"OK FOR ANY MEMORY ** 
** PARITY ERRORS ** 
** ** 

************************* 

I 

V 

**.':******************** 

*GET DATA PATTERN FROM* END OF TABLE 

* TABLE * 

* * 
*********************** 

I 

V INITMM(55) 
************************* 
** INITIALIZE ADDRESS ** 
** POINTERS ** 
** ** 

************************* 

>I 

V 
*********************** 
*PUT DATA INTO MEMORY * 
* LOCATION * 



*********************** 
I 
V 

/DATA JUST WRITTEN\NO 
/ OK? \— 
/ \ 



I YES 

x< 

V MMUP(56) 
************************* 
MORE MEMORY ** b: DATE ADDRESS ** 

** POINTERS ** 

** ** 

************************* 
DONE I 



$ERR0R(63) 

************************* 
** ** 

->**ERROR: DATA CHANGED. ** 
** ** 

************************* 
I 
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:% 



i 

TST11 V SETCQN(57) 

************************* 

**PUT ALL ONE'S IN ALL ** 
** MEMORY ** 
** ** 

* * * v ********************* 

I 

V INITMM(55) 
************************* 

** INITIALIZE ADDRESS ** 
** POINTERS ** 

* * * * 
********************* ***** 

.-> i 

V R0TATE(57) 

************************* 
** CLEAR OBIT AND ** 
**R0TATE IT THROUGH TWO** 
** BYTES ** 
************************* 

I • 

V $ERR0R(63) 

—-.--.-——— -___- ************************* 

/ C-BIT CLEAR AND \NO ** ERROR: ROTATING ** 

/ -1 IN MEMORY \ >** FAILED. ** 

/ LOCATION? \ ** ** 

„»-—«.--.-- -_- ************************* 

I YES I 

V MMUP(56) 
************************* 

MORE MEMORY ** UPDATE ADDRESS ** 

** POINTERS ** 

** • ** 

************************* 
IDONE 
I 
I 
V 



) 
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TST12 SETC0N(57) 

**PUT ALL ZEROS IN ALL ** 
** " MEMORY ** 

#* ** 

I 

V INITMM(55) 

** INITIALIZE ADDRESS ** 
** POINTERS ** 

** ** 

#*#**#**«********$*****#* 

> i 

V R0TATE(57) 

**#**#****************$*# 

**SET C-BIT AND ROTATE *» 
**IT THROUGH TWO BYTES ** 

** ** 

#$*#*#***********#****#$* 

I 

V 

/ C-BIT SET AND \N0 

/IN MEMORY L0CATI0N?\ 

/_ \ 

I YES 

X< 

V MMUP(56) 

MORE MEMORY ** UPDATE ADDRESS ** 
** POINTERS ** 

IDONE 

I 

I 

I 

V 



$ERR0R(63) 

ft**********************,** 

** ERROR: ROTATING 1 ** 

->** FAILED ** 

** *$ 

I 
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TST13 INITMM(55) 

************************* 
** INITIALIZE ADDRESS ** 
** POINTERS ** 
** ** 

************************* 

V W3X9(57) 

************************* 

** iRITE 256. WORD ** 

** BLOCKS WITH ** 

** 0,0,0,0,-1 ,-1 ,-1 ,-1 ** 

************************* 

I 

V MMUP(56) 

***.:********************* 

MORE MEMORY ** UPDATE ADDRESS ** 

** POINTERS ** 

** ** 

************************* 
IDONE 

V INITMM(55) 
************************* 

** INITIALIZE ADDRESS ** 
** POINTERS ** 
** ** 

************************* 

V $ERR0R(63) 

__—__________—_-. ************************* 

/256. WORD BLOCKS \N0 ** ERROR: 3 XOR 9 ** 

/ WRITTEN WITH \ >** PATTERN FAILURE ** 

/ 0,0,0,0,-1,-1,-1,-1 \ ** ** 

«.-.—_-—__—— — - — — — -- ************************* 

I YES I 

K —I 

V MMUP(56) 
************************* 

MORE MEMORY ** UPDATE ADDRESS ** 

** POINTERS ** 

** ** 

************************* 

IDONE. 

I 

I 

I 

I 

I 

V 



) 
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INITMM(55) 
************************* 
** INITIALIZE ADDRESS ** 
** POINTERS ** 
** ** 

* * * I********************* 

>I 

V 



MORE MEMORY 



/ 




\N0 


/ 


DATA OK? 


\— 


/ 




\ 



I YES 

I< 

V 
***************** 

* * 
♦COMPLEMENT DATA* 

* * 
***************** 

I 
V 



DATA OK? 
I YES 



\N0 
\— 
\ 



K 

V 
***************** 

* * 
♦COMPLEMENT DATA* 

* * 
***************** 

I 
V 



DATA OK? 



/ 



\N0 
\ 

\ 



I YES 

K 

I MMUP(56) 
************************* 
** UPDATE ADDRESS ** 
-** POINTERS ** 
** ** 

************************* 

I 

IDONE 

V 



$ERR0R(63) 

************************* 
** ERROR: 3 XOR 9 ** 
->** FAILURE ** 
** ** 

************************* 
I 



$ERR0R(63) 

************************* 

**ERROR: COMPLEMENTED 3** 

->** XOR 9 FAILURE 



** 



** 
** 



************************* 
I 

1 



$ERR0R(€3) 

************************* 
** ERROR: TWICE ** 
->**COMPLEMENTED 3 XOR 9 ** 
** FAILURE ** 
************************* 






• 



§ 
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TST14 INITMM(55) 

************************* 

** INITIALIZE ADDRESS ** 
** " POINTERS ** 
** ** 

****** ****************** 
— _ .-—__— .— _> i 

V W3X9(57) 

*********!{(*************** 

** WRITE 256. WORD ** 
*# BLOCKS WITH ** 
** -1,-1,-1,-1,0,0,0,0 ** 
************************* 

I 

V MMUP(56) 
************************* 

MORE MEMORY ** JPDATE ADDRESS *• 
— . ** POINTERS ** 

** ** 

********** *************** 
IDONE " 

V INITMM(55) 

************************* 

** INITIALIZE ADDRESS ** 
** POINTERS ** 
** ** 

************************* 
->I 
V 



/256. WORD BLOCKS \NO 
/ WRITTEN WITH \ — 
/ -1 ,-1 ,-1 ,-1 ,0,0,0,0 \ 



I . I YES 

I !<_. .___—_. 

I V MMUP(56) 

I ************************* 

I MORE MEMORY ** UPDATE ADDRESS ** 

. — ** POINTERS ** 

** ** 

************************* 

IDONE 

I 

I 

I 

I 

I 

V 



$ERR0R(63) 

************************* 

** ERROR: 3 XOR 9 ** 
->** PATTERN FAILURE ** 

** ** 

************************* 
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INITMM(55) 
************************* 
** INITIALIZE ADDRESS ** 
** POINTERS ** 



** 



************************* 

>I 

V 



/ 




\N0 


/ 


DATA OK? 


\- 


/ 




\ 



I YES 

I< — 

V 
***************** 

♦COMPLEMENT DATA* 
* * 

***************** 

I 

V 



$ERR0R(63) 

************************* 
** ERROR: 3 XOR 9 ** 

->** FAILURE ** 
** ** 

************************* 
I 

. 1 



DATA OK? 



\N0 
\" 

\ 



$ERR0R(63) 

************************* 
**ERROR: COMPLEMENTED 3** 
->** XOR 9 FAILURE 



I YES 

K 

V 
***************** 

* * 
♦COMPLEMENT DATA* 

* * 
***************** 

I 
V 



** 

** ** 

************************* 

I 

1 



/ 




\N0 


/ 


DATA OK? 


\- 


/. 




\ 



I YES 

x< 

I MMUP(56) 

************************* 
MORE P'EMORY ** UHjATE ADDRESS ** 

, ** POINTERS ** 

** ** 

************************* 

I 

I DONE 
V 



$ERR0R(63) 

************************* 
** ERROR: TWICE ** 

->**COMPLEMENTED 3 XOR 9 ** 
** FAILURE ** 
************************* 
I 

. 1 



# 
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TST15 INITMM(55) 

************************* 
** INITIALIZE ADDRESS ** 
** POINTERS ** 
** ** 

* * > :********************* 

V W3X9(57) 

************************* 
** WRITE 256. WORD ** 
** BLOCKS WITH 401 AND ** 
** -1 ** 

******************* .***** 
I 

V MMUP(56) 
************************* 

MORE MEMORY ** UPDATE ADDRESS ** 

** POINTERS ** 

** ** 

************************* 
IDONE 

V INITMM(55) 
************************* 

** INITIALIZE ADDRESS ** 
** POINTERS ** 
** ** 

************************* 

— ^ $ERR0R(63) 

************************* 

/256. WORD BLOCKS \N0 ** ERROR: 3 XOR 9 ** 

/ WRITTEN WITH 401 \ >** PATTERN FAILURE ** 

/ AND -1? \ ** ** 

' „. ************************* 

I YES I 

x< 1 

V MMUP(5C) 
************************* 

MORE MEMORY ** UPDATE ADDRESS ** 

** POINTERS ** 

** ** 

************************* 
IDONE 

T 
I 

I 
I 

I 

V 
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INITMM(55) 
************************* 

** INITIALIZE ADDRESS ** 
** POINTERS ** 
** ** 

****** « :***************** 
>J 

V 



/ 



DATA OK? 



\N0 
\~ 
\ 



I YES 

I< 

V 
* P *************** 



♦COMPLEMENT DATA* 
* * 

****************** 

I 

V 



DATA OK? 



\N0 
\— 
\ 



I YES 

K 

V 

***************** 



^COMPLEMENT DATA* 
* * 

***************** 

I 

V 



DATA OK? 



/ 



\N0 
\— 

\ 



I YES 

K 

I MMUP(56) 

************************* 

MORE MEMORY ** UPDATE ADDRESS ** 

** POINTERS ** 

** .** 

************************* 

I 

IDONE 
V 



$ERR0R(63) 

************************* 

** ERROR: 3 XOR 9 ** 

->** FAILURE ** 

** ** 

************************* 

I 

x 



$ERR0R(63) 

************************* 

**ERROR: COMPLEMENTED 3** 

->** XOR 9 FAILURE ** 

** ** 

************************* 

I 



$ERR0R(63) 

************************* 

** ERROR: TWICE ** 

~>**COMPLEMENTED 3 XOR 9 ** 

** FAILURE ** 

************************* 

I 
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TST16 INITMM(55) 
************************* 
** INITIALIZE ADDRESS ** 
** POINTERS ** 
** ** 
************************* 
_-. > i 

V W3X9(57) 

******************. k ****** 

** WRITE 256. WORD ** 
** BLOCKS WITH -1 AND ** 
** 401 ** 

************************* 

I 

V MMUP(56) 
***•.********************* 

MORE MEMORY ** UPDATE ADDRESS ** 
** POINTERS ** 



************************* 

IDONE 

V INITMM(55) 
************************* 

** INITIALIZE ADDRESS ** 
** POINTERS ** 
** ** 

************************* 



->I 

V 



/256. WORD BLOCKS \NO 
/WRITTEN WITH -1 AND\~ 
/ 401? \ 



I YES 

I< • ; „ 

V MMUP(56) 
************************* 

MORE MEMORY ** UPDATE ADDRESS ** 

** POINTERS ** 

** ** 

************************* 

IDONE 

I 

I 

I 

I 

I 

V 



$ERR0R(63) 

************************* 

** ERROR: 3 XOR 9 ** 

->** PATTERN FAILURE ** 

** ** 

************************* 
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INITMM(55) 
************************* 
** INITIALIZE ADDRESS ** 
** POINTERS ** 



** 



** 



>I 

V 



MORE MEMORY 



DATA OK? 



\N0 
\" 
\ 



I YES 

K 

V 

* * 
♦COMPLEMENT DATA* 

* * 

***************** 
I 
V 



$ERR0R(63) 

************************* 
** ERROR: 3 XOR 9 ** 
->** FAILURE ** 
** ** 

************************* 
I 



/ 




\N0 


/ 


DATA OK? 


\— 


/ 




\ 



I YES 

K 

V 
***************** 

* * 
COMPLEMENT DATA* 

* * 
***************** 

I 
V 



$ERR0R(63) 

************************* 

**ERROR: COMPLEMENTED 3** 

->** XOR 9 FAILURE ** 

. ** ** 

************************* 

I 



/ 
/ 
/ 


DATA OK? 


\N0 
\ 



I YES 

K 

I MMUP(56) 
************************* 
** UPDATE ADDRESS ** 
-** POINTERS ** 
** ** 

************************* 

I 

IDONE 

V 



$ERR0R(63) 

************************* 

** error: twice ** 

— >**COMPLEMENTED 3 XOR 9 ** 
** FAILURE ** 
************************* 
I 
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*********** 

**WWPBT **- 
*********** 



*********** 

**WWPB1 ** — 

*********** 



TST17 

/ANY MEMORY PARITY\N0 ************ 

/ REGISTERS? \— --- ->*TST20<39) * 

/ \ ************ 

I YES 

V SETC0N(57) 

******+*****************$ 

** FILL MEMORY WITH ** 
** ZEROS ** 
* * * * 

************************* 

I 

V INITMM(55) 
************************* 

** INITIALIZE ADDRESS *> 
** POINTERS ** 
** • ** 

************************* 
I 
WWPBT V 

/ DOES THIS BANK \N0 ************ 

— >/ HAVE PARITY? \ >*WWPB5(37) * 

/ \ ************ 

I YES 

V SETAE(60) 

************************** 

** SET MEMORY PARITY ** 
** ACTION ENABLE ALL ** 
** REGISTERS ** 
****,. ******************** 

I 

V CKPMER(61) 
************************,,< 

** CHECK FOR NON-TRAP ** 
**MEMOKY PARITY ERRORS ** 
** ** 

************************* 
I 
WWPB1 V 

— —.«. «. «. ***************** * 

/ POINTING TO \YES * +4 TO ADDRESS * 

->/ PARITY VECTOR \ >* POINTER *™— - 

/ _ (114)? \ * * 

—--——————— — — -— **************^*^ 

I NO 
I 
I 
V 



->*WWPB5(37) * 
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*********** 

**WWPB2 **- 
*********** 



$ERR0R(63) 

—.«,—«-—*.-.-.-.- «.—-.- ************************* 

/ \N0 ** ERROR: ADDRESSING ** 

/ DATA STI LL ZF.RO? \ >** ERROR *» 

/ \ *• ** 

«,«.•«.-.-. — p,— < ,—- -— ************************* 

I YES I 

K -, 1 

WWPB2 V 
***•<«.****************** 

* WRITE WRONG PARITY * 
->*INTO BYTE UNDER TEST * 

* * 
*********************** 

v $ERR0R(63) 

*********************** ************************* 

* READ WRONG PARITY *N0 TRAP **ERROR: READING WRONG ** 

* FORCING TRAP *-- »■ >**PARITY FAILED TO TRAP** 

* * ** ** 
*********************** ************************* 

I 

V MEMORY 

V PARITY 

V ERROR 

V TRAP 

PBTRP V $ERR0R(63) 

_, „.._ , «... ************************* 

/ERROR FLAG SET IN\NO ** ERROR: NO REGISTER ** 

/ ANY REGISTER? \ >** SHOWN PARITY ERROR. ** 

/ \ 

L«-— .-»——— .---——--— ************************* 

I YES 

v $ERR0R(63) 

«-,—--~^.— .---—— - ************************* 

/ THIS REGISTER \N0 ** ERROR: PARITY ** 

/ MAPPED FOR THIS \ < >**REGISTER BAD MAPPED. ** 

/ ADDRESS? \ ** ** 

„.-*.-->-<*——-"*> p.-.—.-— ************************* 

I YES I 

J < """ *" $ERR0R(63) 

„»_„..„,.«. — — ************************* 

/ALL USED BITS OF \N0 ** ERROR: PARITY ** 

/ REGISTER CORRECT? \ >**REGISTER DATA WRONG. ** 

/ \ ** ** 

U^.««p»—i. ,^ -.,..— -ro— — ************************* 

I YES l 

!<—-., 

I 
I 
V 



************ 
->*WWPB4(37) 

********** 



************ 

->*WWPB4(37) * 

************ 



.') 
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ii 



* * * * * * * * * * * 

**WWPB4 **- 

* * * * * 4c * * * * * 



* sis * * * * * * * * * 

**WWPB5 ## = 

* * * * * * * * $ * * 



SERRQR(63) 

——_—-———_ — »-.— — — ************************* 

/ ARE ALL OTHER \N0 **ERRQR: MORE THAN ONE ** 

/ PARITY REG. ERROR \ >**REG INDICATED ERROR. ** 

/ FLAGS CLR? \ ** ** 

««,- -—.—.—.—«««-. ,«.»—.—«. *******************.&***** 

I YES 

WWPB3 V 

*********************** 

* SAVE DATA FROM BYTE * 

* UNDER TEST * 

* * 

******************-**** 
I 

V $ERR0R(63) 

— — — -._«.____ __ ************************* 

/ DID SAVING DATA \N0 **ERROR: SECOND READ OF** 

/ RESET ERROR FLAG \— >** WRONG PARITY NOT ** 

/ \ ** DETECTED ** 

— -.—.—.«— .«.—,«.„ —.««. — -.— ************************* 

I YES I 
!<_.-.. ...«— 

V $ERR0R(63) 

__„.„„«.—____ — _____ ************************* 

/ DID DATA REMAIN \N0 ** ERROR: DATA CHANGED ** 

/ UNCHANGED WHEN \— — >** DISPITE PARITY TRAP ** 

/ ERROR TRAPPED? \ ** ** 

___ . __._. . . — ._„ ***********************jji* 

I YES I 

V 

*********************** 

*RESTORE RIGHT PARITY * 

* IN BYTE UNDER TEST * 

* * 
************** * ** * **** * 

I 
WWPB4 V 

/DONE BOTH PARITY \N0 ************ 

->/ BIT SET AND \ >*WWPB2(36) * 

/ CLEARED? \ ************ 

I YES 
WWP35 V 

* / DONE WITH THIS \N0 ************ 
->/ BANK? \— >*WWPB1(35) * 

/ \ ************ 

I YES 

I 

V 



) 
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MMUP(56) 
************************* 
************ MORb MEMORY ** UPDATE ADDRESS ** 

*WWPBT(35) *< — ** " POINTERS ** 

************ *# ** 

******* ****************** 

IDONE 

V MAMF(60) 

************************* 

** RESET ALL PARITY ** 

** REGISTERS ** 

** . ** 

************************* 

I 

I 

I 

V 
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*********** 

**TST20 ** 
*********** 

TST20 I INITMM(55) 
************************* 
** INITIALIZE ADDRESS ** 
** POINTERS ** 
** ** 

************** *********** 

V 

*********************** 

* ^OPY 2K BLOCK OF * 

* PROGRAM CODE INTO * 

* MEMORY UNDER TEST * 
*********************** 

I 

V $ERR0R(63) 

„-„«. —«.—-. -.- ************************* 

/DID "RANDOM" DATA\NO ** ERROR: PROGRAM CQDE ** 

/ COPY OK? \ >** COPIED CHANGE. ** 

I \ ** ** 

„«». . «. ************************* 

I YES I 
!<_— 

V MMUP(56) 
************************* 

MORE MEMORY ** UPDATE ADDRESS ** 

** POINTERS ** 

** ** 

************************* 

IDONE 

I 

I 

I 

I 

V 



) 
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TST21 INITMM(55) 

*****$******************* 

** INITIALIZE ADDRESS ** 
** POINTERS ** 
** ** 

—^ ^ >X 

V 

*************9********* 

* PUT INSTRUCTION * 

* 'MOV R4 f (R2)' * 
*AND RTS INTO MEMOuf * 
****************** .***# 

I 
V 

************************* 

**USR TO ADDRESS UNDER ** 

** TEST **-->»- 

** ** 

************************* 



*********** 

>**MAUT ** 

*********** 

I 

V 

*********************** 

* EXICUTE INSTRUCTION * 

* IN MEMORY ADDRESS * 

* UNDER TEST (MAUT) * 
*********************** 

I 

V 

*********** 

— <« — **RETURN ** 

*********** 



/ DID THE \N0 

/INSTRUCTION EXICUTE\ 

/ PROPERLY? \ 

I YES 

K 

V MMUP(56) 
************************* 

MORE MEMORY ** UPDATE ADDRFSS ** 
-, w ,*# POINTERS ** 
** ** 

******* *********m******** 

IDONE 

I 

I 

I 

V 



$ERR0R(63) 

************************* 
** ERROR: INSTRUCTION ** 
->**DIDN'T MODIFY ITSELF.** 
** ** 

************************* 
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TST22 INITMM(55) 

******** ****** ****** ***** 
** INITIALIZE ADDRESS ** 
** ' POINTERS ** 



****** « ;***************** 
v ^ rw . VTm i*. w , > I 

V 

*********************** 

* PUT INSTRUCTION * 

* 'MOVB R4,(R2)' * 

* AND RTS INTO MEMORY * 
*********************** 

I 
V 

************************* 

**JSR TQ ADDRESS UNDER **■ *********** 

** JEST ** — »> >**MAUT ** 

** • ** *********** 

************************* I 

V 

*********************** 

* EXICUTE INSTRUCTION * 

* IN MEMORY ADDRESS * 

* UNDER TEST (MAUT) * 
*********************** 

I 
V 

*********** 

<« — **RETURN ** 

I *********** 

I 

I 

V $ERR0R(63) 
^-__-.-.—-.-._„- ______ ************************* 

/ DID THE \N0 ** ERROR: INSTRUCTION ** 

/INSTRUCTION EXICUTE\ >**DIDN'T MODIFY ITSELF.** 

/ PROPERLY? \ ** ** 

_—.«—.—.——.-«. «.-.-.-- ************************* 

I YES I 

V MMUP(56) 
************************* 

MORE MEMORY ** UPDATE ADDRESS ** 

-,_,. — „ — , ^— ** POINTERS ** 

** ** 

************************* 

IDONE 

I 

I 

I 

V 



) 
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TST23 INITMM(55) 

************************* 
** INITIALIZE ADDRESS ** 
** POINTERS ** 
** ** 

************************* 

V 

*********************** 

* PUT INSTRUCTION * 

* 'MGVB R3,-(R2) ' * 

* AND RTS INTO MEMORY * 
*********************** 

I 

V 
***. ********************* 
**JSR TO ADDRESS UNDER ** 
** TEST **—>»- 



** 



** 



************************* 



I 
I 
I 
V 

/ DID THE ' \N0 

/INSTRUCTION EXICUTE\ 

/ PROPERLY? \ 

I YES 

x< 

V MMUP(56) 
************************* 
MORE MEMORY ** UPDATE ADDRESS ** 

** POINTERS ** 

** ** 

************************* 

IDONE 

I 

I 

I 

V 



*********** 

>**MAUT ** 

*********** 

I 

V 

*********************** 

* EXICUTE INSTRUCTION * 

* IN MEMORY ADDRESS * 

* UNDER TEST (MAUT) * 
*********************** 

I 



*********** 

«< — **RETURN ** 

*********** 



$ERR0R(63) 

************************* 
** ERROR: INSTRUCTION ** 
->**DIDN*T MODIFY ITSELF.** 
** ** 

************************* 
I 
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TST24 



INITMM(55) 



*# INITIALIZE ADDRESS ** 
## POINTERS #* 
#& $* 



->I 

V 



& PUT INSTRUCTION * 

* ! NEG (R2) 8 * 

* AMD RTS INTO MEMORY * 

I 

V 

**JSR TO ADDRESS UNDER *# 

** TEST **-->»- 



*********** 
->#*MAUT ** 



EXICUTE INSTRUCTION 
IN MEMORY ADDRESS 
UNDER TEST (MAUT) 



-<«— **RETURN ** 



/ DID THE \N0 
/INSTRUCTION EXICUTE\— ■ 
/ PROPERLY? \ 



$ERR0R(63) 



** ERROR: INSTRUCTION ** 

~>**DIDN'T MODIFY ITSELF.** 

** ** 



MORE MEMORY 



I YES 
!<-__-._„—.-__. 

V MIViUP(56) 

*****$*****#**####**###* 

*# UPDATE ADDRESS * 

-** POINTERS * 

$* * 

$$$*******$****#*:******* 

IDONE 

I 
I 
I 
V 



) 
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TST25 INITMM(55) 

************************* 

** INITIALIZE ADDRESS ** 
** ' POINTERS ** 

** ** 

****** • .***************** 
T , > I 

V 

*********************** 

* PUT INSTRUCTION * 

* 'BICB (R2)+ f -(R2) ' * 

* AND RTS INTO MEMORY * 
*********************** 

I 

V 
************************* 
**dSR TO ADDRESS UNDER ** *********** 

** TEST ** — >» >**MAUT ** 

^ . ** *********** 

************************* I 

V 
******************* **** 

* EXICUTE INSTRUCTION * 

* IN MEMORY ADDRESS ♦ 

* UNDER TEST (MAUT) * 
*********************** 

I 

V 

*********** 

<«— **RETURN ** 

j *********** 

I 

v $ERR0R(S3) 

-—...-.- — ._- — — .— ************************* 

/ DID THE \N0 ** ERROR: INSTRUCTION ** 

/INSTRUCTION EXICUTE\ >**DIDN»T MODIFY ITSELF.** 

/ PROPERLY? \ ** ** 

L,»^—.—- —- . - — — - - ************************* 

I YES ' * 

l < — 

V MMUP(56) 
************************* 
MORE MEMORY ** UPDATE ADDRESS ** 

*., , ** POINTERS ** 

** ** 

************************* 

IDONE 

I 

I 

I 

V 
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TST26 INITMM(55) 

************************* 

** INITIALIZE ADDRESS ** 
** POINTERS ** 
** ** 

************************* 

V 

*********************** 

* PUT INSTRUCTION * 

* 'BISB (R2)+,(R2) ' * 

* AND RTS INTO MEMORY * 
*********************** 

I 
V 

***.':********************* 

**JSR TO ADDRESS UNDER ** *********** 

** JEST ** — >» >**MAUT ** 

** ** *********** 

************************* I 

V 
*********************** 

* EXICUTE INSTRUCTION * 

* IN MEMORY ADDRESS * 

* UNDER TEST (MAUT) * 
*********************** 

I 

V 

*********** 

«< — ** RETURN ** 

j *********** 

I 

I 

V $ERR0R(63) 
—_«._.-._-.-... --_ — ************************* 

/ DID THE ' \N0 ** ERROR: INSTRUCTION ** 

/INSTRUCTION EXICUTE\ >**DIDN'T MODIFY ITSELF.** 

/ PROPERLY? \ ** ** 

„-._-._-„ — -— ************************* 

I YES I 

K 

V MMUP(56) 
************************* 

MORE MEMORY ** UPDATE ADDRESS ** 

** POINTERS ** 

** ** 

************************* 
IDONE 
I 
I 
I 
V 
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MORE MEMORY 



TST27 INITMM(55) 
************************* 
** INITIALIZE ADDRESS ** 
** POINTERS ** 
** ** 
*** :***********#********* 
I 
>! 

V 

*********************** 

* WRITE 4K WITH * 
. *000377-ADDRESSING UP * 

* * 
*********************** 

*** I 

* A* > I 

*** V 

***************** 

* DECREMENT * 

* ADDRESS AND * 

* READ WORD * 
***************** 

v $ERR0R(63) 

„ „ „— ************************* 

/ D.TA READ = DATA \N0 **ERROR: DATA READ DOES** 

/ WRITTEN \ — >** NOT EQUAL DATA ** 

/ \ ** WRITTEN ** 

__ -- ************************* 

*** I YES I 

* B * >i< 1 

*** V 

*********************** 

* SWAP BYTES IN CHECK * 

* REG. AND WRITE THIS * 

* DATA INTO TEST LOC . * 
**** ******************* 

v $ERR0R(63) 

„_«._.__—.- «_— — — ************************* 

/ READ TEST LOC. \N0 **ERROR: DATA READ DOES** 

/DOES IT EQUAL CHECK\ >** NOT EQUAL DATA ** 

/ REG. \ ** WRITTEN ** 

„——.——— - «.-.---. ************************* 

I YES I 

x< 1 

v 

***************** 

* SWAP BYTES IN * 
'CHECK REGISTER * 

* * 
***************** 

I 
V 



) 



CZQMCFO 
TEST 27: 
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NO 



$A*<» 



/ PASS COUNT a \N0 
/ OR 3? \— 

/ ' \ 



I YES 
V 




-.«-». . ■»«»«—«-_»-»„_-.«,« 


„_ 


/ 
-/ DONE PASS? 
/ 


\ 
\ 

\ 


I YES 
V 




its**************** 

^INCREMENT PASS * 
COUNTER * 


Sfc^StS************** 


I 

V 





$M!V!UP 

**MMUP: UPDATE ADDRESS ** YES /DONE FOUR PASSES \ 
** POINTERS #* < / ON A 4K? \ 



I DONE 
I 
I 
V 

* NO MORE MEMORY. * 

* GO TO NEXT TEST. * 

* * 



I NO 
V 

* SWAP BYTES IN * 
*CHECK REGISTER * 



I 
I 
I 

I 

V 



1 

I 
V 

^UPDATE TO NEXT * 

* ADDRESS * 

* * 



) 
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/ WES 
/ DONE A PASS? \— 
/ \ 

NO 



/DATA READ = DATA \N0 
/ WRITTEN \— 

/ \ 



V 

*****##**************** 

* INCREMENT PASS * 
*COUNTER-SWAP BYTES IN* 

* CHECK REGISTER * 
*********************** 

I 
V 

/ \N0 

/ PASS COUNTER *2? \ 
/ \ 



*** 

»->*A* 

*** 



I YES 
V 

*********************** 

* RESET ADDRESS TO * 

* BOTTOM OF 4K * 

* * 
*********************** 

I 

1 



I YES 

I 

I - 



$ERR0R(63) 

************************* 
**ERROR: DATA READ DOES** 

>** NOT EQUAL DATA ** 

** WRITTEN ** 
************************* 
I 
*** I 

->*B*< 1 

*** 
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INITMM(55) 
*************.:<*********** 
** INITIALIZE MEMORY ** 
** ADDRESS POINTERS ** 
** ** 

* * >, ********************* 
I 

>! 

V 

--.__---_«.-._ ->** **********': 

* SET UP DATA PATTERN * 

* TO BE WRITTEN * 

* STARTING WITH 125.152 * 
*********************** 

I 
I 
V 

*********************** 

* WRITE A * 

* WORD-COMPLIMENT THE * 

* DATA FOR NEXT WRITE * 
*********************** 

I 
V 



NO / 
/ 



END OF BLOCK? 



\ 



\ 



MORE MEMORY 



I YES 

V MMUP(56) 
************************* 
** UPDATE ADDRESS ** 

** POINTERS ** 

** ** 

************************* 

I 

V 

*********************** 



* STALL FOR 2 SECONDS * 



*********************** 

I 

V INITMM(55) 
************************* 
** INITIALIZE MEMORY ** 
** ADDRESS POINTERS ** 
** ** 

***** ******************** 

I 

I 

I 

V 
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V 

******¥**************** 

* INITIALIZE DATA * 
♦PATTERN FQR CHECKING * 

* * 
***** * ************ **** 

I 
>I 

V 

/ IS DATA READ = \N0 
/ DATA WRITTEN? \~ 
/ \ 

I YES 

K 

V 
*********************** 

* * 
♦COMPLIMENT CHECK DATA* 

* * 
*********************** 

I 
V 



NO 



END OF BLOCK 



\ 



I YES 

V MMUP(56) 
************************* 

MORE MEMORY ** UPDATE ADDRESS ** 

** POINTERS ** 

** ** 

************************* 

IDONE 

I 

V 



$ERR0R(63) 

************************* 

** ERROR: REFRESH ** 

->** CIRCUITRY FAILED ** 

** ** 

************************* 

I 
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INITMM(55) 
************************* 
** INITIALIZE MEMORY ** 
** ADDRESS POINTERS ** 
** ** 

************************* 

I 
>I 

V 

..... .—.—-—>*******)>**** 

* SET UP DATA PATTERN * 

* TO BE WRITTEN * 
♦STARTING WITH 052525 * 
*********************** 

I 

■I 

V 

*********************** 

* WRITE A * 

* WORD-COMPLIMENT THE * 

* DATA FOR NEXT WRITE * 
*********************** 

I 
V 



NO 



/ 



\ 



MORE MEMORY 



END OF BLOCK? 



/ 



\ 



I YES 

V MMl'P(56) 
************************* 
** UPDATE ADDRESS ** 
-** POINTERS ** 
** ** 

************************* 

I 

V 
*********************** 

* * 

* STALL FOR 2 SECONDS* * 



*********************** 

I 

V INITMM(55) 
****** ****************** 
** INITIALIZE MEMORY ** 
** ADDRESS POINTERS ** 
** ** 

************************* 

I 

I 

I 

V 
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>I 

V 

*********************** 

* INITIALIZE DATA * 
•PATTERN FOR CHECKING * 

* * 
* t -.******************** 

I 

>I 

V 

/ IS DATA READ = \N0 
/ DATA WRITTEN? \— 
/ \ 

I YES 

K 

V 
*********************** 

* * 
♦COMPLIMENT CHECK DATA* 

* ' * 
*********************** 

I 
V 



NO 



/ 



END OF BLOCK 



\ 



MORE MEMORY 



I YES 

V MMUP(56) 
************************* 
** UPDATE ADDRESS ** 

** POINTERS ** 

** ** 

************************* 

IDONE 

I 

V 



$ERR0R(63) 

************************* 

** ERROR: REFRESH ** 

->** CIRCUITRY FAILED ** 

** ** 

************************* 

I 



CZQMCFO 
DONE 
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RELTQP(58) 

** RELOCATE PROGRAM TO ** 

** THE TOP OF MEMORY **<™ 

** ** 

I 

V 

* * * * ^ * * * * Sjj * * 

*START1 (16)* 

& # # * * * * !«S * * * # 



DONE 

/PROGRAM IN MEMORY\NO 
/ 'TO BE TESTED? \- • > 

/ ~~ .„_— —Ji 

1 YES 
V 

/ INHIBIT PROGRAM \YES 

/ RELOCATION? \ > 

/ (SW07=1)? \ 

I NO 
V 

YES /F-dOGRAM IN BANKS \ 
— / © AND 1? \ 

/ _ __„ _„„_Ji 

I NO 

V REL0(59) 

**RELOCATE PROGRAM INTO** 
$* BANKS AND 1 ** 

$# ** 

I 

V RESLDR(59) 

** RELOCATE THE LOADER *# 
** AREA TO • TOP OF ** 
** MEMORY 1 ** 

#&##¥**#**$*$#####*##*$$* 
I 

I 
V 



) 
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$EOP 

*********************** 

♦STANDARD ' SYSMAC' END* 
* OF PASS ROUTINE * 



************ 

*START1(16)*<- 

************ 



NO 



*********************** 

I 

V 

******************** 

/ TYPE END OF PASS / 

/ MESSAGE / 

/ / 

******************* 

I 
V 

/ WES 

— / MONITOR PRESENT? \ 

/ \ 



*********** 

->**EXIT ** 

*********** 



) 



CZQMCFO 0-1 24K MEM EXER 1 6K 

MEMORY MANAGEMENT AND ADDRESSING SUBROUTINES 

*********** 
**MMINIT ** 
*********** 

I 
MMINIT V 
*********************** 

♦SET UP ALL THE MEMORY* 

♦MANAGEMENT REGISTERS.* 

* * 

*********************** 

I 

V 

**** ******* 

♦♦RETURN ♦* 
* *** ******* 
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*********** 

♦♦INITMM ♦* 

*********** 
I 
INITMM V 
*********************** 

*LOCATE FIRST BANK IN * 

* TEST MAP ♦ 

* * 
*********************** 

I 
V 

/ LAST BANK AS \N0 
/ WELL? \ — 
/ \ 

I YES 
V 

*********************** 

* * 
*SET UP LAST ADR MASK ♦ 

* • * 
*********************** 

I<— 

V 

/ \N0 
/ 8K BLOCK SIZE? \— 
/ \ 

I YES 
V 

*********************** 

* SET UP SECOND BANK * 

* POINTERS ♦ 

* * 
*********************** 



K- 
V 



/ FIRST BANK FLAG \N0 
/ SET? \~ 
/ _\ 

I YES 
V 

******* **********5M(C**** 

* PUT FIRST ADDRESS * 
♦INTO ADDRESS POINTER ♦ 

* * 
*********************** 

I 
I 



*********** 
**INITDN ** 
*********** 

I 
INITDN V 
*********************** 

* SET UP ADDRESS ♦ 

* POINTERS TO LAST * 

* POSSIBLE ADDRESS ♦ 
*********************** 

I 

V MMD0WN(56) 
************************* 
♦♦SEARCH DOWNWARDS FOR ♦* 
♦♦TOP BANK IN TEST MAP ** 
** ** 

************************* 

I 

V 



/ LAST BANK FLAG \N0 
/ SET? \— 
/ \ 

I YES 
V 

*********************** 
*FUT LAST ADDRESS INTO* 

* ADDRESS POINTER * 

* * 
*********************** 

I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 

INITEX V 
*********************** 

* SAVE RETURN PC FOR * 

* LOOP ADDRESS ♦ 



*********************** 

I 

V 

*********** 

♦♦RETURN ** 

*********** 



• 



:ZQMCFO 0-1 24K MEM EXER 1 6K 

MEMORY MANAGEMENT AND ADDRESSING SUBROUTINES 

*********** 

**MMUP ** 
*********** 

I 

MMUP V 
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*********** 
**MWiDOWN ** 
*********** 



MMDOWN 



/ WES 

/ LAST BANK? \ 

/ \ 

I NO 

I 

I 

I 

I 

I 

I 

V 
*********************** 
*FIND NEXT BANK (NEXT * NONE 
*TWO BANKS IF 8K BLOCK* 

* SIZE) * FOUND 
*********************** 

I 
V 

/ \N0 

/ LAST BANK? \ 

/ __ \ 

I YES 
V 

*********************** 

* SET UP LAST ADDRESS * 

* MASK * 



/ 



FIRST BANK? 



\YES 
\ 



/ 



\N0 
LAST ADDRESS? • \— 

\ 



I YES 

V CKPMER(61 

************************* 
** CHECK FOR NON-TRAP ** 
->**MEMORY PARITY ERRORS.** 
** ** 

************************* 
I 



*********** 
**RETURN ** 
*********** 



*********************** 



I NO 

I 

I 

I 

I 

I 

I 

V 

*********************** 

* FIND NEXT LOWER 4K * NONE FOUND 

* BANK * 



/ \N0 

/ FIRST ADDRESS \— 

/ \ 



YES 



*********************** 
I 
V 



*********** 
**ft£TURN ** 

*********** 



FIRST BANK? 



\N0 

\ 

\ 



I YES 
V 

*********************** 

* SET UP LAST ADDRESS * 

* MASK * 



*********************** 
*ADJUST RETURN ADDRESS* 

* TO LOOP * 

* * 
************•.-********** 

I 

V 

*********** 

**RETURN ** 

***>?******* 



*********************** 

K 

V 

*********************** 
♦ADJUST RETURN ADDRESS* 

* TO LOOP * 

* * 
*********************** 

I 

V 
*********** 
**RETURN ** 
*********** 
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*********** 
**PHYADR ** 

**** ******* 
I 

PHYADR V 

******* ********** 

* GET VIRTUAL * 

* ADDRESS (FROM * 

* R2) * 
***************** 

I 



/MEMORY MANAGEMENT\NO 

/ AVAILABLE \ 

/ _ _ \ 

I YES 
V 

*********************** 
*ADD INDEX FACTOR FROM* 

* KIPAR2 TO GET * 

* PHYSICAL ADR * 
*********************** 

K 

V 

*********** 
**R_TURN ** 
*********** 



*********** 

**BANKNO ** 
*********.. * 

I 
BANKNO V 
*********************** 

* CALCULATE BANK H * 

* USING TEST MAP 3ANK * 

* POINTER * 
*********************** 

I 
V 

*********** 

**RETURN ** 
*********** 



MORE 
MEMORY 



*********** 
**SETCON ** 
*********** 

I 
SETCON V INITMM(55) 

************************* 
** INITIALIZE ADDRESS ** 
** POINTERS ** 
** ** 
************************* 
>I 

V 

*********************** 

* PUT THE CONTENTS OF * 

* RO INTO MEMORY * 

* * 
*********************** 

I 

V MMUP(56) 

************************* 

** UPDATE ADDRESS ** 

-** POINTERS ** 

** ** 

************************* 

I DONE 

V 

*********** 

**RETURN ** 

*********** 



*********** 

**RQTATE ** 
**** ******* 

I 
ROTATE V 

*********************** 

*ROTATE C-BIT THROUGH * 

* 16 BIT WORD. * 

* * 
*********************** 

I 

V 
**** ******* 
**RETURN ** 
*********** 



*********** 

**W3X9 ** 
*********** 

I 
W3X9 V 

*********************** 

*WRITE 256 WORD WITH 4* 

* OF A PATTERN THEN 4 * 

* OF ANOTHER * 
*****..***************** 

I 
V 

*********** 

**RETURN ** 
*********** 



CZQMCFO 0-1 24K MEM EXER 1 6K 
RELOCATION SUBROUTINES 

**** ******* 

**RELOC ** 

*********** 
I 
RELOC V 
*********************** 

* MOVE 8K BLOCK OF * 

* MEMORY FROM SRC TO * 

* DST * 
*********************** 

* $ERR0R(63) 

. ************************* 

/""data'ok after \no ** error; relocation ** 

/ MOVE? \ >** FAILURE ** 

/ \ 

^ ************************* 

I YES l 

V V 

******************** *********** 

/ TYPE PROGRAM / **HALT ** 

/RELOCATION MESSAGE/ *********** 

/ / 

******************* 

I 
V 

*********** 
**RETURN ** 
*********** 
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NO 



*********** 
**RELTOP ** 
*********** 

I 
RELTOP V 

/ MEMORY \YES 
MANAGEMENT? \ 



I / 

V 
*********************** 

* SET UP DESTINATION * 

* PART OF » RELOC TO * 
*POINT TO LAST 2 BANK * 
*********************** 

I 

V REL0C(58) 
************************* 
** RELOCATE PROGRAM TO ** 
** LAST 2 BANKS ** 
** ** 

************************* 

I 

V 
*********************** 
♦ADJUST ALL PERTINENT * 

* ADDRESS POINTERS * 

* * 
*********************** 

I 



*********************** 

* set up mem mm * 

♦REGISTERS TO POINT TO* 

* LAST 2 BANKS * 

*********************** 
I 

V REL0C(59) 
************************* 
** RELOCATE PROGRAM TO,.** % 
** LAST 2 BANKS 

****************** *#**fPl 
I 
I 
I 
I 
I 
I 
I 
I 



r 



>K 

V 

*********** 
**RETURN ** 
*********** 
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NO 



I 

I 

I 

V REL0C(58) 

************************* 

♦♦RELOCATE PROGRAM BACK** 

** TO BANKS 0+1 ** 

** ** 

************************* 

I 

V 

*********************** 

♦ADJUST ALL PERTINENT * 

* ADDRESS POINTERS * 



** ******** 

**RELO *♦ 

*********** 

I 
RELO V 

/ MEMORY \YES 

— / MANAGEMENT? \ 

/ \ 



*********************** 
I 

I 
V 

*********** 

♦♦RETURN ** 
*********** 



*********************** 

* SET UP MEM MGMT * 
♦REGISTERS TO POINT TO* 

* Bm;4KS 0+1 * 
*********************** 

I 

V REL0C(58) 
************************* 
♦♦RELOCATE PROGRAM BACK** 
♦* TO BANKS 0+1 ** 
** ** 

************************* 

I 



*********** 

♦♦RESLDR ** 
*********** 

I 
RESLDR V 

*********************** 

♦ MOVE "LOADER" FROM * 

♦ END OF 8K TO TOP OF * 

♦ MEMORY * 
*********************** 

I 

V 

*********** 

♦♦RETURN ** 
*********** 
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*********** 

**PESRV ** 
*********** 

I 
PESRV V 

******************** 
/ TYPE UNEXPECTED / 
/ TRAP MESSAGE / 

/ / 

******************* 

I 



/ERROR FLAG SET IN\NO 
/ ANY PARITY \" 
/ REGISTER? \ 



*********** *********** 
**SETAE ** **MAMF ** 
*********** *********** 
I 
MAMF V 

/ PARITY REGISTER \N0 
/ EXIST AND NOT \— 
/ INHIBITED? \ 



$ERR0R(63) 

************************* 

** error: trap but no ** 

->** FLAG 



** 
** 



************************ 



I YES 
V 

*********************** 
** REPORT TRAH PC AND 
** REGISTER DATA 
** 
*********************** 

I 

V PSCAN 
********************** 
** SCAN ME, ORY FOR ALL 
**BAD PARITY LOCATIONS 
** 
*********************** 

K 

V 
*********** 

**RETURN ** 
*********** 



(61) 

** 
** 
** 
** 
** 



I YES 
V 
*********************** 
*SET UP PARITY VECTOR.* 
->* SET 'ACTION ENABLE' * 
* IN ALL REGISTERS * 
*********************** 

K 

V 
*********** 
**RETURN ** 
*********** 



*********** 

**CLRPAR ** 

*********** 
I 
CLRPAR V 
*********************** 
*CLEAR OUT ALL MEMORY * 
* PARITY REGISTERS * 



*********************** 

I 

V 

*********** 

**RETURN ** 

*********** 
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-m. 



*********** 

**CKPMER ** 

* * * * * * * * * * * 
I 

CKPMER V 

NO / PARITY REGISTER \ 
<„_„/ EXIST AND NOT \ 
/ INHIBITED? \ 



NO / ANY ERROR FLAGS \ 
<— ■ — / SET? \ 
/ \ 



/ERROR SHOULD HAVE\YES 
/ TRAPPED? \— - 
/ \ 

I NO 

V $ERR0R(63) 

************************* 

** ** 

** ERROR: PARITY ERROR ** 

** ** 

************************* 

I 

V PSCAN(61) 
************************* 
** SCAN MEMORY FOR ALL ** 
**BAD PARITY LOCATIONS.** . 
** ** 
************************* 

V 

****** .**** 
**RETURN ** 
*********** 



$ERR0R(63) 
************************* 
** ERROP: PARITY ERROR ** 
->** SHOULD HAVE TRAPPED ** 
** ** 

************************* 



********^** 

**PSCAN ** 
*********** 

I 
PSCAN V 
******************** 

/ TYPE SCANNING / 
/ MESSAGE / 

/ / 

******************* 
>I 



*********************** 

* * 
♦READ MEMORY LOCATION * 

* * 
**********************- * 

I 
V 

/ANY PARITY ERROR \YES 

/ FLAGS? \ 

/ _\ 

I NO 

K . 

V 

*********************** 

* UPDATE ADDRESS * 
-* POINTERS * 

* * 
*********************** 

IDONE 



/ANY PARITY ERRORS\NO 
/ FOUND? \— 
/ \ 



I YES 
K- 

V 

*********** 

**RETURN ** 
*********** 



$ERR0R(63) 

************************* 

** ERROR: PARITY ERROR ** 

->** AT LOCATION. ** 

** ** 

************************* 

I 



$ERR0R(63) 

************************* 
** ERROR: NO PARITY ** 
->** ERRORS FOUND ** 
** ** 

************************* 
I 
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*********** 

**SPRNT **- 
*********** 



*********** 

**SPRNTQ ** > 

**** ******* 



**** ******* 

**SPRNTR ** > 

*********** 



*********** 

**SPRNTO ** > 

*********** 



******.,**** 
**SPRNT1 ** — -> 

*********** 



*********** 

**SPRNT3 ** > 

*** . ******* 



*********** 
**SPRNT2 ** — 
**** ******* 



*********** 

**TYPMAP ** 
*********** 

I 
TYPMAP V 

/ MAP CONTAIN \N0 
/ FLAGS? \— 
/_ \ 

I YES 
V 
******************** 
/TYPE FIRST + LAST / 
/ ADDRESS OF BANKS / 
/ FOUND / 
******************* 

K 



******************** 
/ TYPE EMPTY MAP / 
->/ MESSAGE / 
/ / 



*********** 
**RETURN ** 
*********** 



*********************** 

* ROUTINES TO SET UP * 

* DATA FOR EPROR * 

* . T\PEOUTS. * 
*********************** 

I 

V 
*********** 
**RETURN ** 
*********** 
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X:: ^if.i;P-' 



*********** 

**$SCOPE **- 
*********** 



*********** 

**$ERROR **- 
*********** 



*********** 
**ERRTYP **• 
*********** 



SSCOPE 

**T ******************** 

* CONTROLS LOOPING, * *********** 
->* INTERATIONS, ETC. *— >**RETURN ** 

* BETWEEN SUBTESTS * *********** 
*********************** 

SERROR 

*********************** 
♦COUNTS ERRORS, LOOPS.* *********** 
->*PASS DATA TO SERRTYP *— >**RETURN ** 

* * *********** 

*********************** 

ERRTYP 

*********************** 

* TYPEOUT ERROR * *********** 
->*MESSAGE, HEADER, AND *—>**RETURN ** 

* DATA * *********** 
*********?■************* 



$RDCHR 

*********************** 
*********** *INPUTS CHARACTER FROM* 
**$RDCHR **— >* TTY *- 

*********** * * 

*********************** 



*********** 

->**RETURN ** 

********* - * 



$ROLIN 

*********************** 
*********** * INPUTS STRING OF * *********** 
**$ROLIN **-->* CHARACTER FROM TTY *~ >**RETURN ** 
*********** * * 

*********************** 



*********** 



*********** 
**$TYPE **" 
*********** 



*********** 

**$TYPDS **- 
*********** 



*********** 

**$TYPOC **" 
*********** 



*********** 
**ERRTRP **- 
*********** 



*********** 

**$TYPAD **- 

*********** 



$TYPE 

*********************** 

* TYPES OUT A MESSAGE * 
->* ON TTY. *~ 

* * 
************* ********** 

$TYPDS 
*********************** 

* * 
->*TYPE A DECIMAL NUMBER*- 

* * 
*********************** 

STYPOC 
*********************** 

* * 
->*TYPE AN OCTAL NUMBER *- 

* * 
*********************** 

ERRTRP 
*********************** 

* UNEXPECTED TIMEOUT * 
->* TRAP (TO 4) ROUTINE *- 

* * 
*********************** 

$TYPAD. 
*********************** 

* TYPE AN 18-BIT * 
->* ADDRESS (OCTAL) *- 

* * 
*********************** 



*********** 

->**RETURN ** 

*********** 



*********** 

->**RETURN ** 

*********** 



*********** 

->**RETURN ** 

*********** 



******* **** 

->**HALT ** 
*********** 



*********** 

->**RETURN ** 

*********** 



SRDOCT 

*********************** 
*********** *CONVERTS ASCII OCTAL * 
**$RDOCT ** — >* NUMBER TO MACHINE *- 
*********** * NARY * 

*********************** 



*********** 

->**RETURN ** 

*********** 



*********************** 

* * 

* ASCII MESSAGES * 

* * 
*********************** 



SPRINT 

*********************** 
*********** * RELOCATES MESbAGE * 
**$PRINT **— >* ADDRESS FOR $TYPE *- 
*********** * * 

*********************** 



*********** 

->**RETURN ** 

*********** 



*********************** 

* ERROR DATA FORMAT * 

* TABLE * 

* * 
*********************** 



*********** 

**.END ** 
*********** 



♦ 



CZQMCFO 0-124K MEM EXER 1 6K 
FLOW CHART CROSS REFERENCE LIST 



.',) 
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BANKNO 

CKPMER 

CLRPAR 

CTRLS 

DONE 

ERRTRP 

ERRTYP 

EXIT 

GMPR 

GMPRA 

GMPRB 

GMPRC 

HALT 

INITDN 

INITEX 

INITMM 



MAMF 

MANUAL 

MANUL1 

MANUL2 

MAPRB 

MAUT 

MMDOWN 

MMINIT 

MMUP 



PBTRP 

PESRV 

PHYADR 

PSCAN 

RELO 

RELOC 

RELTOP 

RESCHK 

RESLDR 

REST1 

REST2 

RESTAR 

RESTOR 

RETURN 



ROTATE 

SELECT 

SETAE 

SETCON 

SPRNT 

SPRNTO 

SPRNT1 



57* 

24 

60* 

14 

53 

63 

63 

54 

08 

12 

12 

12 

03 

17 

55 

17 

32 

55 

38 

12 

15 

16 

13 

40 

17 

09 

17 

32 

57 

36 

60* 

57* 

60 

03 

58* 

53 

14 

03 

02 

02 

02* 

02- 

04 

58 

63 

25 

06* 

35 

25 

62* 

62* 

62* 



57 
35 
60 



63* 
63* 



12 



04 
18 

18 

33 

57 

60* 

15* 



41 

18 

55* 

18 

33 



60 
57 
61 
53 
58 
58* 

53 



02 

40 
58 
63 
26 

60* 
26 



56 



12 



04 
19 



19 
33 



60 
15 



42 
19 
55 
19 
33 



61* 
59* 
58 
58 

59* 



06 

41 
59 
63 

57* 



35 



61* 



61 



08 
21 



20 
34 



43 
21 



20 
34 



61 
59 
58 



59 



42 
59 
63 
57 



11 
21 



20 
35 



44 
21 



20 
38 



59 



58 
55* 



22 
39 



45 
55 



22 
39 



59 



63 
55 



23 
40 



24 
41 



25 
42 



26 

43 



27 
44 



27 
45 



28 
46 



29 
49 



29 
49 



30 
51 



31 
51 



3.1 
55* 



56* 



23 

40 



56 



24 
41 



25 
42 



26 
43 



27 
44 



27 
45 



28 
49 



29 
50 



29 
51 



30 
52 



31 
56* 



31 
56 



43 
60 



44 
60 



45 
60 



55 
61 



55 
61 



56 
62 



56 
62 



56 
63 



56 
63 



57 
63 



57 
63 



57 
63 



57 
63 



57 
63 



57* 57 
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FLOW CHART CROSS REFERENCE LIST 

SPRNT2 62# 

SPRNT3 62# 

SPRNTQ 62# 

SPRNTR 620 

START 06# 

START1 03 16# 16 53 54 

STARTA 02 06 

TIMOUT 09# 

TMAP 13 

TST1 17 

TST11 25 

TST12 26 

TST13 27 

TST14 29 

TST15 31 

TST16 33 

TST17 35 

TST2 18 

TST20 35 39# 39 

TST21 40 

TST22 41 

TST23 42 

TST24 43 

TST25 44 

TST26 45 

TST27 46 

TST3 19 

TST4 20 

TST5 21 

TST6 22 

TST7 23 

TYPfflAP 13 62# 62 

W3X9 27 29 31 33 57# 57 

WWPB1 35 35# 37 

• WWPB2 36 36# 37 

WWPB3 37 

WWPB4 36 36 37 37# 

WWPB5 35 35 37 37# 

WWPBT 35 35# 38 

$EOP 54 

SERROR 14 14 



14 17 18 19 20 21 23 24 25 26 27 28 28 28 29 30 
31 *2 32 32 33 34 34 34 36 36 36 36 36 37 37 37 
41 42 43 44 45 46 46 48 50 52 58 60 61 61 61 61 



30 30 
39 40 

63 63# 
SILLUP 04# 
$MMUP 47 

SPRINT 04 09 10 10 15 63 63# 
$PWRDN 04# 
SPWRUP 040 
SRDCHR 63 630 
$RDOCT 15 15 63 63# 
SROLIN 63 



CZQMCFO 0-1 24K MEM EXER 1 6K 
FLOW CHART CROSS REFERENCE LIST 





63# 




$SCOPE 


63 


63# 


$TYPAD 


10 


10 


STYPDS 


63 


63# 


STYPE 


63 


63# 


$TYPOC 


63 


63# 


.END 


63 





63 



63# 
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CZQMCFO 0-124K MEMORY EXERCISER, 1 6K VER 
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TITLE CZQMCFO 124K MEMORY EXERCISER, 1 6K VER 

♦COPYRIGHT (C) 1975.1978 

•DIGITAL EQUIPMENT CORP. 

"MAYNARD, MASS. 01754 

« 

♦PROGRAM BY BRUCE BURGESS/KEN CHAPMAN 

*THIS PRCGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
♦PACKAGE (MAINDEC-11-DZQAC-C3) , JAN 19, 1977. 



13 
14 



16 
17 



23 
24 
25 
26 



•SBTTL OPERATIONAL SWITCH SETTINGS 
;* SWITCH USE 



.SBTTL BASI* 



HALT ON ERROR 

LOOP ON TEST 

INHIBIT iRROR TYPEOUTS 

INHIBIT KT11 (AT START TVI ONLY 

INHIBIT ITERATIONS 

BELL ON ERROR 

LOO? ON ERROR 

LOOP ON TEST IN SWR<4:0> 

INHIBIT PROGRAM RELOCATION 

INHIBIT PARITY ERROR DETECTION 

INHIBIT EXRERCISING VECTOR AREA. 
DEFINITIONS 

1100 *** 



;*INITIAL ADDRESS OF THE STACK POINTER 

STACK= 1100 

.EQ'JlV EMT. IRROR ;;BASIC DEFINITION OF ERROR CALL 

.EQJIV 101, SCOPE ;;BASIC DEFINITION OF SCOPE CALL 



36 


0C001 1 


37 


000012 


38 


000015 


39 


000200 


40 


177776 


41 




42 


177774 


43 


177772 


44 


1775" D 


45 


177570 


46 




47 




48 


000000 


49 


000001 


50 


0C0002 


51 


0^0003 


52 


000004 


53 


000005 


54 


000006 


55 


000007 


56 


000006 



;»MI5CELLANE0U 


HT = 


11 


LF = 


12 


CR = 


15 


CRLF = 


200 


PS = 


177776 


. EO'J 1 V 


PS.PSW 


STKLMT= 


177774 


PIRQ=- 


177772 


DSWR = 


177570 


DDISP= 


177570 


I-GENERAL PURP 


R0 = 


%?■ 


R1 = 


%1 


R2 = 


542 


R3 = 


%3 


R4 = 


%A 


R5 = 


%5 


R6= 


%6 


R7 = 


%7 


SP= 


X6 



CODE FOR HORIZONTAL TAB 

CODE FOR LINE FEED 

CODE FOR CARRIAGE RETURN 

CODE FOR CARRIAGE RETURN-LINE FEED 

PROCESSOR STATUS WORD 

STACK LIMIT REGISTER 
PROGRAM INTERRUPT REQUEST REGISTER 
HARDWARE SWITCH REGISTER 
HARDWARE DISPLAY REGISTER 



GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
G_NERAL REGISTER 
ENERAL REGISTER 
STACK POINTER 



CZQMCFO 0-124K MEMORY EXERCISER, 
CZQMCF.P11 14-FEB-78 08:19 



16K VER 

BASI 



MATY11 30A(1052) 
DEFINITIONS 



20-FEB-78 07:56 PAGE 3 



57 


000007 


58 




59 




60 


OCOOcJ 


61 


000040 


62 


000100 


63 


000140 


64 


000200 


65 


000240 


66 


000300 


67 


0"0340 


68 




69 




70 


100000 


71 


040000 


72 


0200CO 


73 


010000 


74 


0C40.00 


75 


002000 


76 


001000 


77 


000400 


78 


0C0200 


79 


OC0100 


80 


0C0040 


81 


000020 


82 


0C0Q1Q 


83 


000004 


84 


000002 


85 


000001 


86 




87 




88 




89 




90 





98 


ICOOOO 


99 


040000 


100 


020000 


101 


0: 0000 


102 


004000 


103 


002000 


104 


001000 


105 


000400 


106 


000200 


107 


000100 


108 


000040 


109 


000020 


110 


000010 


111 


000004 


112 


000002 



; ; PROGRAM COUNTER 



;*PftIORITY LEVEL DEFINITIONS 



PRO* 
PR1 = 
PP2 = 
PR3 = 
PR4 = 
PR5- 
PR6 = 
PR7 = 



SW15 = 
SW14 = 
SW13 = 

SW12 = 
SW1 1 = 
SW1G = 
SW09 = 

swoa* 

SW07 = 

swos= 

SW05 = 
SW04 = 
SW03 = 

SW02 = 
SWQ1 = 
SWOO- 

.EQUI 
.EQUI 

.EQur 

.EQUI 
.EQUI 
.ECU I 
.EQUI' 
.EQU! 
. EO'J I ' 
.EO'J I' 



PRIORITY LEVEL 

PRIORITY LEVEL 1 

PRIORITY LEVEL 2 

PRIORITY LEVEL 3 

PRIORITY LEVEL 4 

PRIORITY LEVEL 5 

PRIORITY LEVEL 6 

PRIORITY LEVEL 7 



SWITCH DEFINITIONS 



;-*DATA 
BIT15* 
BIT14= 
SIT 1 3 = 
BIT 1 2 = 



IT09 = 
I TOP.? 



IT06 = 
IT05 = 



I T 03 = 
IT02- 



100 
140 
2Cj 
240 
300 
340 

ITCH REGISTER" 
100000 
40000 
20000 
10000 
4000 
2000 
1000 
400 
200 
100 
40 
20 
10 



1 

SW09,i- .9 

SW08.5W8 

SW07.SW7 

SW06.SW6 

SW05.SW5 

SW04.SW4 

SW03.SW3 

SW02.SW2 

SW01 ,SW1 

SWOO.SWQ 

BIT DEFINITIONS (BITOO TO BIT15) 
100000 
40000 
20000 
10000 
4000 
2000 
1000 
400 
200 
ICO 
40 



20 
10 



CZOMCFO C 


-124K MEMORY 


CZQMCF.M 1 


14-FELW8 


113 


000001 


114 




115 




116 




117 




118 




119 




120 




121 




122 




123 




124 




125 




126 


C00004 


127 


000010 


128 


000014 


129 


0C00 1 ; 


130 


OC0014 


131 


000020 


132 


0C0024 


133 


000030 


134 


000034 


135 


000060 


136 


000064 


137 


000240 


138 




139 




140 




141 




142 




143 




144 


000250 


145 




146 




147 




148 


177572 


149 


177574 


150 


177576 


151 


172516 


152 




153 




154 




155 


172300 


156 


17 23 ''2 


157 


17 2304 


158 


172306 


159 


172310 


160 


172312 


161 


172314 


162 


172316 


163 




164 




165 




166 


172340 


167 


172342 


168 


17 2344 



16K VER 


MACY1 


30A(1052) 


BASIC D 


•FINIT 


DNS 


BITOOa 


1 




•EQUIV 


BIT09 


BIT9 


.EQUIV 


BIT08 


BITS 


.EQUIV 


BIT07 


B1T7 


.EQUIV 


BIT06 


BIT6 


.EQUIV 


BITQ5" 


BIT5 


.EQUIV 


DIT04 


BIT4 


, EQU 1 V 


BIT03 


"UT3 


.EQUIV 


BIT02 


DIT2 


•EQUIV 


BIT01 


■IT1 


.EGUIV 


BITOO 


BITQ 


;»BASIC 


"CPU" 


TRAP VECTOR 


ERRVEC= 


A 




RESVEC=> 


10 




TBI rvF.C 


-14 




TRTVEC* 


14 




BPTVEC= 


14 




IOTVEC= 


20 




F'WSVEO 


24 




EMfVEC* 


30 




TRAPVEC 


= 34 




TKVEC= 


60 




TPVEC= 


64 




PTROVEC 


= 240 





ADDRESSES 

TIME OUT AND OTHER ERRORS 

RESERVED AND ILLEGAL INSTRMC »' IONS 

,: T" BIT 

TRACE TRAP 

BREAKPOINT TRAP (BPT) 

INPUT.. OUTPUT TRAP (IOT) **SCQPE** 

POWER FAIL 

EMULATOR TRAP (EMT) **ERRQR** 

"TRAP" TRAP 

TTY KEYBOARD VECTOR 

TTY PRINTER VECTOR 

PROGRAM INTERRUPT REQUEST ViiCTOR 



.SBTTL f-irMO.-JY MANAGEMENT DEFINITIONS 

;*KT1 1 VECTOR ADDRESS 

MMVEC« 250 

;*KT11 STATUS REGISTER ADDRESSES 



PAGE DESCRIPTOR REGISTERS 



SR0 = 


177_72 


SR1 = 


177574 


SR2 = 


177576 


SR3 = 


172516 


;*KERNEL "I" P 


KIPDR0= 


172300 


KIPDR1= 


17 2302 


KIPDR2= 


172304 


KTPDR3= 


172306 


KiPDR4= 


172310 


KIPDR5= 


1" 1312 


KIPDR6= 


172314 


KIPDR7= 


172316 



;*KERNEL "I" PAGE ADDRESS REGISTERS 

KIPAR0= 172340 
KIPAR1= 172342 
KIPAP.2* 172344 



CZQMCFO 


0-1 24K MEMORY 


EXERCISER 


C2QMCF. 


P1 1 


14-FEB-78 


08=19 


169 




172346 




170 




172350 




171 




172352 




172 




172354 




173 




17 2356 




174 








175 




ocoooo 




176 
177 
178 




000006 










179 




oooooi 




180 




0C01 14 




181 








182 








183 




017777 




184 








185 








186 




177746 




187 








188 








189 








190 
191 
192 




000000 










193 








194 




000174 




195 


C0C174 


00 0000 




195 


000176 


OC'OOOO 




197 








198 


000200 


000137 


002640 


199 


000204 


0167 


002436 


200 








201 


000210 


000167 


000064 


202 


000214 


000167 


000064 


203 


000220 


000167 


003376 


204 








205 




0Q00C4 




206 


000004 


02511 4 




?07 


000006 


000000 




208 








209 








210 








211 








212 








213 




000010 




214 




000046 




215 


000046 


014222 




216 




0C0G52 




217 


000052 


0400CO 




218 




OuOOlO 
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MEMORY MANAGEMENT DEFINITIONS 

K1PAR3= 172346 

K1PAR4= 172350 

KIPAR5* 172352 

KIPAR6= 172354 

KIP',R7= 172356 



UP 



;CPDE FOR UPWARDS r.iAP IN MEM MGMT PDR'S 
;CCDE FOR READ/WRITE IN MEM MGMT PDR'S 



;PARITY ACTION ENABLE 
•.PARITY TRAP VECTOR 



;MASK FOR 4K ADDRESS. BANK 80UNDRY. 



;* PARITY MEMORY DEFINITIONS. 

AE=1 

PARVEC=1 14 

;* MISCELLANEOUS ASSIGNMENTS 
MASK4K= 17777 

;* CACHE REGISTER DEFINITIONS. 
IMPCHE= 17^746 

.SBTTL TRAP CATCHER 



;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".+2, HALT" 
;*S£QU£\ce TO CATCH ILLEGAL TkApS AND INTERFUPTS 
;*LOCATION CONTAIN TO CATCH IMPPOPETLY LOADED VECTORS 

. = 174 
DISPREG: .WORD —SOFTWARE DISPLAY REGISTER 

SWREG: ..JOHD ;; SOFTWARE SWITCH REG T ST£R 

.SETTL STARTING ADnnESS(ES) 

JMP @*START ;;UUMP TO STARTING ADDRESS OF PROGRAM 



JMP 

■J MP 
JMP 
JMP 



SELECT 

RESTAR 

RESTOR 
TIMOUT 



,=ERRVEC 

.WORD ERRTRP 

.WORD 

.SBTTL ACT11 HOOKS 



; HOOKS REQUIRED BY ACT 11 
$SVPC=. 
.=4E 

sendad 

.=52 

.WORD BIT14 

.=$SVi .. 



;STARTING ADDRESS TO ALLOW THE OPERATOR TO 
ISELECT VARIOUS PARAMETERS. 

;RESTART ADDRESS, USING PREVIOUS PARAMETERS. 
; RESTORE LOADERS TO END O r MEMORY AND HALT. 
;TYPE OUT MEMORY MAP, BYTE BY BYTE. 



;SAVE FC 

;;1)SET L0C.46 TO ADDRESS OF SENDAD IN ,$EOP 



;2)SET tOC. 52 TO BIT14 

; RESTORE PC 



CZOMCFC 


0-1 24K MEMORY 


EXERCI 


C20MCF. 


P11 14-FEB-78 


08:19 


219 




000300 




220 








221 








222 








223 








224 








225 








226 


000300 


005005 




227 


000302 


0C0401 




228 


000304 


010705 




229 


000306 


0<2706 


001 100 


230 


000312 


005767 


001206 


231 


000316 


001002 




232 


000320 


000167 


002330 


233 


000324 


005767 


000256 


234 


000330 


001470 




235 


000332 


032737 


000001 


236 


000340 


001034 




237 


000342 


012700 


172300 


238 


000346 


012701 


000010 


239 


000352 


012720 


077406 


240 


000356 


005301 




241 


000360 


001374 




242 


000362 


012700 


172340 


243 


000366 


0C5020 




244 


000370 


01 2720 


000200 


245 


000374 


012720 


000400 


246 


000400 


012720 


000600 


247 


000404 


012720 


001000 


248 


000410 


0'2720 


001200 


249 


000414 


01 2720 


001400 


250 


000420 


01 2720 


007600 


251 


000424 


012737 


000001 


252 


00C432 


005000 




253 


000434 


016701 


000142 


254 


000440 


016702 


000140 


255 


000444 


0C6202 




256 


000446 


006001 




257 


000450 


103404 




258 


000452 


062700 


000200 


259 


000456 


100372 




260 


000460 


000000 




261 


000462 


010037 


172340 


262 


000466 


000137 


000472 


263 


000472 


062700 


000200 


264' 


000476 


006202 




265 


000500 


006001 




266 


000502 


103373 




267 


000504 


010037 


172342 


268 


000510 


000410 




269 


000512 


016700 


000062 


270 


000516 


062700 


001100 


271 


000522 


010006 




272 


000524 


062700 


177432 


273 


000530 


0001 10 




274 


000532 


022767 


000003 



16K VER MACY1 1 
ACT 11 HOOKS 



*300 
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THE FOLLOWING ROUTINES ARE LOCATED IN THE VECTOR AREA (0-1000) SO THAT 
THEY CAN BE PROTECTED BY SELECTING SW05 (SEE DOCUMENT FOR USE OF SWOB). 
THE CODE CAN ALSO BE RUN FROM ANY BANK OF MEMORY, ASSUMING MEMORY 
MANAGEMENT IS DISABLED BY "CONSOLE STAPT", 



000042 20$: 



restar: en 

BR 

restor; mov 

REST': MOV 
TST 
BNE 
JMP 

REST2: TST 
BEQ 
BIT 
BNE 
MOV 
MOV 

1$: MOV 
DEC 
BNE 
MOV 
CLR 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

25: CLR 
MOV 
MOV 

3S: ASR 
ROR 
BCS 
ADD 
BPL 
HALT 

4$: MOV 
JMP 

5$: ADD 
ASR 
ROR 
BCC 
MOV 
BR 

10$: MOV 
ADD 
MOV 
ADD 
JMP 
CMP 



R5 

REST1 

PC, 

#STACK, 

MEMMAP 

REST2 

5TARTA 

MMAVA 

10$ 

#BITO 

2$ 

#KIPDR0,R0 

#8., R1 

#077406, (R0)+ 

R1 

1$ 

#KIPARO,R0 

(R0) + 

0200, 

#400, 

#600, 

#1000 

#1200 

#1400 

#7600 

#BITO 



RO 

PRGMAP, R1 
PRGMAP+2.R2 



4$ 

#200, 

3$ 

RO, 

§>#5$ 

#200, 

R2 

R1 

5$ 

RO, 

20$ 

RELOCF, 

#STACK, 

RO, 

#20$-STACK,RC 

(RO) 

#3, PRGMAP 



CLEAR FLAG TO INDICATE REST£"?T. 

GO RESTORE PROGRAM BEFORE RESTARTING. 

PUT DATA INTO FLAG FOR RESTORE. 

SET UP THE STACK POINTER. 

CHECK IF THE MEMORY HAS BEEN MAPPED. 

BR IF MEMORY MAPPED. 

GO START 

CHECK IF MEM MGMT AVAILABLE. 

BR IF NO MEM MGMT. 

CHECK IF MEM MGMT ACTIVE. 

BR IF MEM r/GMT ALREADY SET UP. 

POINT TO FIRST MEM MGMT DDATA REG. 

SET UP COUNTER. 

MAP FIRST 28K 1-F0R-1 . 

COUNT REGEGTERS. 

BR IF MORE REG. 

POINT TO FIRST MEM MGMT ADDRESS REG. 

PARO MAPPED INTO BANKO. 

PARI MAPPED INTO BANK1 . 

PAR2 MAPPED INTO BANK2. 

PAR3 MAPPED INTO BANK3. 

PAR4 MAPPED INTO BANK4. 

PAR5 MAPPED INTO BANK5. 

PAR6 MAPPED INTO BANK6. 

PAR7 MAPPED INTO BANK37. 

ENABLE MEM MGMT. 

INIT TEMP PAR REG. 

GET THE PROGRAM MAP...LO 64K. 

...HI 64K. 

SHIFT THE MAP POINTER... HI 

.. .LO. 

BR WHEN FIRST BANK FOUND. 

UPDATE TMP PAR TO NEXT BANK. 

BR IF MORE. 
;FATAL ERROR!!! MAP EMPTY? 
©#KIPARO ;PUT TEMP PAR INTO FIRST PAR. 

JUMP INTO PROGRAM IF NOT THERE ALREADY. 

KEEP UPDATING TEMP PAR REG. 

SHIFT POINTER. . .HI 

. . .LO 

BR IF TOP BANK NOT YET FOUND. 

;SET UP SECOND PROGRAM ANK POINTER. 

BR TO RELOCATE SECTION. 

GET RELOCATION FACTOR. 

SET UP STACK POINTER. 

SET STACK TO RELOCATE PROGRAM. 

ADJUST RO TO RELOCATED "20$" ADDRESS. 

GO TO "20$" (RELOCATED). 

CHECK IF PROGRAM IS IN BANKS AND 1. 



R5 



##SRO 



(R0) + 
(R0) + 
(R0) + 
(R0) + 
(R0) + 
(R0) + 
(R0) + 
g»#SR0 



RO 



@#KIPAR1 



RO 
SP 



CZQMCFO 


0-124K MEMORY 


EXERCISER 


CZQMCF. 


P11 14-FEB-78 


08:19 


275 


000540 


001402 




276 


000542 


004767 


016?14 


277 


000546 


005705 




278 


000550 


001006 




279 


000552 


005067 


000412 


280 


000556 


105067 


000320 


281 


000562 


000167 


005316 


282 


000566 


004767 


016476 


283 


000572 


OCOOOO 




2B4 


000574 


0C0167 


002054 


285 








286 








287 








288 


000600 


000000 




289 


000602 


000000 


000000 


290 


000606 


000000 
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BEQ 


21$ 




JSR 


PC, 


21$: 


TST 


R5 




BNE 


22$ 




CLR 


$TIMES 




CLRB 


$TSTNM 




JMP 


START1 


22$: 


JSR 
HALT 


PC, 




JMP 


STARTA 


; * THE 


FOLLOWING LOCATI 


;+ BELOW 100C 


TO INSUR 


;* CIRCUMSTANCES. 


RELOCF 


.WORD 





PRGMAP 


.WORD 


0,0 


MMAVA : 


.WORD 






;BR IF IN BANKS AND 1 . 
RELO ; RELOCATE THE PROGRAM BACK TO BANKS AND 1. 
;CHECK RESTART/RESTORE FLAG. 
;BR IF RESTORE. 
;CLEAN UP BEFORE STARTING. 

;RESTART WITH PREVIOUSLY SELECTED PARAMETERS. 
RESLDR ;RESTORE THE LOADERS TO THE "TOP" OF MEMORY. 

;HALT AFTER RESTORING THE LOADERS. 

;CONTINUE WILL RESTART THE PROGRAM. 
ONS ARE USED BY THE ABOVE ROUTINE AND MUST BE LOCATED 
E CORRECT OPERATION UNDER THE WIDEST VARIETY OF 

;C0NTAINS RELOCATION FACTOR (NO MEM MGMT) 
; PROGRAM MAP - WHERE THE PROGRAM IS LOCATED 
;MEMORY MANAGEMENT AVAILABLE FLAG. 



CZQMCFO 


0-124K MEMORY 


EXERCISER, 16K 


VER 


MACY1 1 


30A(1052) 20-FEB- 


78 07=56 PAGE 8 


CZQMCF. 


P11 14-FEB-78 


08:19 




POWER DOWN AIJC 


UP ROUTINES 




291 
292 
293 










.SBTTL 


POWER 


DOWN AND UP ROUTINES 










;;**»*« 


******* 


¥ ***********»****** 


******************************** 


294 










•POWER 


DOWN ROUTINE 




295 


000610 


012737 


000756 


000024 


$PWRDN 


MOV 


//SILLUP, @#PWRVEC 


; ;SET FOR FAST UP 


296 


000616 


012737 


000340 


000026 




MOV 


#340,$*PdRVEC+2 ; 


;PRI0:7 


297 


000624 


01 0046 








MOV 


RC.-(SP) ; 


;PUSH RO ON STACK 


298 


000625 


01 0146 








MOV 


R1,-(SP) ; 


;PUSH R1 ON STACK 


299 


000630 


01 0246 








MQV 


R2,-(SP) ; 


;PUSH R2 ON STACK 


300 


000632 


01 0346 








MOV 


R3,-(SP) ; 


;PUSH R3 ON STACK 


301 


000634 


01 0446 








MOV 


R4,-(SP; ; 


;PUSH R4 ON STACK 


302 


000636 


010546 








MOV 


R5,-(SP) ; 


; PUSH R5 ON STACK 


303 


000640 


017746 


000274 






MOV 


@SWR,-(SP) ; 


;PUSH @SWR ON STACK 


304 


000644 


010667 


0001 12 






MOV 


SP.SSAVR6 


;SAVE SP 


305 


000650 


012737 


000662 


000024 




MOV 


rf$PWRUP, (MPWRVEC 


; [SET UP VECTOR 


306 


000656 


000000 








HAL. 






307 
308 
309 


000660 


000776 








BR 


• -2 


;HANG UP 










;;***** 


******* 


******************* 


******************************** 


310 










•POWER 


UP ROUTINE 




311 


000662 


012737 


000756 


000024 


SPWRUP 


MOV 


tf$ILLUP,@0PWRVEC 


; ;SET FOR FAST DOWN 


312 


000670 


016706 


000066 






MOV 


SSAVR6.SP ; 


;GET SP 


313 


000674 


005067 


000062 






CLR 


SSAVR6 ; 


;WAIT LOOP FOR THE TTY 


314 


0C0700 


00521-7 


000056 




1$: 


INC 


$SAVR6 ; 


;WAIT FOR THE INC 


315 


000704 


001375 








BNE 


1$ ; 


;0F WORD 


316 


000706 


012677 


000226 






MOV 


(SP)+,@SWR ; 


;POP STACK INTO @SWR 


317 


000712 


01 2605 








MOV 


(SP)+,R5 ; 


;POP STACK INTO R5 


318 


000714 


012604 








MC-y 


(SP)+,R4 ; 


; POP STACK INTO R4 


319 


000716 


01 2603 








MOV 


(SP)+,R3 ; 


;POP STACK INTO R3 


320 


000720 


012602 








MOV 


(SP)+,R2 ; 


;POP STACK INTO R2 


321 


000722 


0'. 2601 








MOV 


(SP)+,R1 ; 


;POP STACK INTO R1 


322 


000724 


01 2600 








MOV 


(SP)+,RO ; 


;POP STACK INTO RO 


323 


000726 


012737 


000610 


000024 




MOV 


fi<$PWRDN,@>#PWRVEC 


;;SET UP THE POWER DOWN VECTOR 


324 


000734 


012737 


000340 


000026 




MOV 


*34O,6>0PWRVi:C+2 ; 


;PRI0:7 


325 


000742 


0C4567 


022544 






JSR 


R5. $P. INT ; 


GO PRINT OUT THE FOLLOWING MESSAGE. 


326 


000746 


025641 






SPWRMG: 


.WORD 


PWRMSG ; 


; POWER FAIL MESSAGE POINTER 


327 


000750 


012716 








MCV 


(PC)+,(SP) ; 


;RESTART AT RESTART 


328 


000752 


000300 






SPWRAD: 


.WORD 


RESTART ■ ; 


; RESTART ADDRESS 


329 


000754 


000002 








RTI 






330 


000756 


000000 






SILLUP: 


HALT 




[THE POWER UP SEQUENCE WAS STARTED 


331 


000760 


000776 








BR 


.-2 ; 


; BEFORE THE POWER DOWN WAS COMPLET 


332 


000762 


000000 






SSAVR6: 







;PUT THE SP HERE 
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333 






334 






335 






336 






337 






338 






339 




001 100 


340 


001 100 




341 


001100 


ooooco 


342 


001 102 


000 


343 


001 103 


oco 


344 


001 104 


000000 


345 


001 106 


000000 


346 


001 1 10 


000000 


347 


001 1 12 


ocoooo 


348 


001 1 14 


coo 


349 


001115 


001 


350 


001 1 16 


000000 


351 


001 120 


000000 


352 


001 122 


ocoooo 


353 


001 124 


000000 


354 


001 1 26 


OGOOOO 


355 


001 130 


000000 


356 


001132 


000000 


357 


001 134 


000 


358 


001135 


000 


359 


001 136 


ocoooo 


360 


001 140 


177570 


361 


001 142 


17 7570 


362 


001 144 


177560 


363 


001 146 


177562 


364 


001 150 


177564 


365 


001 152 


177566 


366 


001 154 


000 


367 


001155 


0C2 


368 


001 156 


012 


369 


001157 


000 


370 


001 160 


OCOOOO 


371 


001 162 


OCOOOO 


372 


001 164 


000000 


373 


001 166 


ooooco 


374 


001 170 


000000 


375 


001 1 72 


000000 


376 


0C1 174 


177607 


377 


001200 


077 


378 


001201 


015 


379 


001202 


000012 


380 






381 






382 






333 






384 






385 


001204 




386 


001204 


OCOOOO 


387 


001206 


000000 


388 


001210 


000000 
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COMMON TAGS 



.SBTTL COMMON TAGS 



*THIS TABLE CONTAINS VARICUS COMMON STORAGE LOCATIONS 
•USED IN THE PROGRAM. 





.WORD 





STSTNM: 


.BYTE 





SERF! l: 


.BYTE 





SICNT: 


.WORD 





SLPADR: 


.WORD 





SLPiRR: 


.WORD 





SERTTL: 


.WORD 





S1TEMB: 


• BYTE 





SERMAX: 


.BYTE 


1 


SER3PC: 


.WORD 





SGDADR: 


.WORD 





SBDADR: 


.WORD 





SGDDAT: 


.WORD 





SBDDAT: 


.WORD 







.WORD 







.WORD 





sautob: 


.BYTE 





SINTAG: 


.BYTE 







.WORD 





SWR: 


.WORD 


DSWR 


DISPLAY 


• WORD 


DDISP 


STKS: 


17756C 




STKS: 


177562 




STPS: 


177564 




STPB: 


177566 




SNULL: 


.BYTE 





SFILLS: 


.BYTE 


2 


SFILLC: 


.BYTE 


12 


S7PFLG: 


.BYTE 





STMPO: 


.WORD 





STMP1 : 


.WOf.J 





STMP2: 


.WORD 





S7MP3: 


.WORD 





STIMES: 







SESCAPE 







SBELL: 


.ASCIZ 


<207><377><377> 


SQUES: 


.ASCII 


/?/ 


SCRLF: 


.ASCII 


<15> 


$LF: 


.ASCIZ 


<12> 



; START OF COMMON TAGS 

; CONTAINS THE TEST NUMBER 
[CONTAINS ERROR FLAG 
;CONTAINS SUBTEST ITERATION COUNT 
[CONTAINS SCOPE LOOP ADDRESS 
[CONTAINS SCOPE RETURN FOR ERRORS 
{CONTAINS TOTAL ERRORS DETECTED 
[CONTAINS ITEM CONTROL BYTE 
[CONTAINS MAX. ERRORS PER TEST 
[CONTAINS PC OF LAST ERROR INSTRUCTION 
[CONTAINS ADDRESS OF 'GQQQ' DATA 
[CONTAINS ADDRESS OF 'BAD' DATA 
[CONTAINS 'GOOD' DATA 
[CONTAINS 'BAD' DATA 
[RESERVED— NOT TO BE USED 

[AUTOMATIC MODE INDICATOR 
[INTERRUPT MODE INDICATOR 

ADDRESS OF SWITCH REGISTER 

ADDRESS OF DISPLAY REGISTER 

TTY KBD STATUS 

TTY KBD BUFFER 

TTY PRINTER STATUS REG. ADDRESS 

TTY PRINTER BUFFER REG. ADDRESS 

CONTAINS NULL CHARACTER FOR FILLS 

CONTAINS u OF FILLER CHARACTERS REQUIRED 

INSERT FILL CHARS. AFTER A "LINE FEED" 

"TERMINAL AVAILABLE" FLAG ( BI T<07>=0*YES ) 

USER DEFINED 

USER DEFINED 

USER DEFINED 

USER DEFINED 

MAX. NUMBER OF ITERATIONS 

ESCAPE ON ERROR ADDRESS 

CODE FOR BELL 

QUESTION MARK 

CARRIAGE RETURN 

LINE FEED 



.SBTTL APT MAILBOX-ETABLE 



.EVEN 
$MA I L : 
$MSGTY: 
SFATAL: 
STESTN: 



.WORD AMSGTY 
.WORD AFATAL 
.WO..D ATESTN 



;APT MAILBOX 
[MESSAGE TYPE CODE 
[FATAL ERROR NUMBER 
[TEST NUMBER 



C20MCF0 


0-124K f . 6M0R 


CZQMCP. 


Ml 14-KEB-7 


389 


001212 


ocoooo 


390 


001214 


ocoooo 


391 


001216 


ocoooo 


392 


001220 


000000 


393 


C01222 


ocoooo 


394 


001224 




395 


001224 


000 


396 


001223 


000 


397 


001226 


000000 


398 


001230 


ocoooo 


399 


001232 


000000 


400 






401 






402 






403 






404 






405 






406 


001234 


000 


407 


001235 


000 


408 






409 






410 






411 






412 


001236 


ooooco 


413 






414 


001240 


000 


415 


001241 


000 


416 


001242 


000000 


417 


001244 


000 


418 


001245 


000 


419 


001246 


000000 


420 


001250 


GCO 


421 


001251 


oco 


422 


001252 


ocoooo 


423 


001254 


ooooco 


424 


001256 


ocoooo 


425 


001260 


000000 


426 


001262 


ooooco 


427 


001264 


ocooco 


428 


001266 


ocoooo 


429 


001270 


ooooco 


430 


001272 


ooooco 


431 


001274 


000000 


432 


001276 


OOOO'.O 


433 


0013G0 


OOOOCO 


434 


001302 


OCOOOO 


435 


001304 


000000 


436 


001306 


000000 


437 


001310 


000000 


438 


001312 


000000 


439 


001314 


O^OCOO 


440 


001316 


OCOOOO 


441 


001320 


OCOOOO 


442 


001322 


000000 


443 


001324 


000000 


444 


001326 


000000 
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SPASS: 

SCEVCT: 

SUNIT: 

SMSGAD: 

SfVSGlG: 

SETABLE: 

$ENV: 

SENVM: 

SSa'SEG: 

$USWR: 

SCPUOP: 



SMAMS1 : 
SMTYP1 ; 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 



SMAMS2: 

5MTVP2: 

SMADR2: 

SMAV.53: 

SMTYP3: 

SMADR3: 

SMAVS4: 

SMI VP4: 

SMADR4: 

SVECTl : 

SVECT2: 

S3ASE: 

SDEVM: 

SCDwi : 

SC0*2: 

SDDwO: 

SDDwi : 

SDDW2 : 

SDDW3 : 

SDDW4: 

$DD>\'5: 

SjDWG: 

SDDW7: 

SDD.vC: 

SDD.-.9: 

SDDa 0: 

$DDW i 1 : 

SDDW12: 

SDD/J13: 

SDDW14: 

SDDW15: 



.BYTE 
.BYTE 

.WORD 
.BYTE 
.BYTE 
.WORD 
.BYTE 
. B1 I'E 
.WORD 
.WORD 
.WO.: J 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.MRD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



APASS 

ADEVCT 
AUNIT 
AMSGAD 
AMSGLG 

AENV 

AENVM 

ASWREG 

AUSWR 

ACPUOP 



AMAMS1 
AMTYP1 



SMADR1 : .WORD AMADR1 



AMAMS2 

AMTYP2 

AMADR2 

AMAMS3 

AMTYP3 

AMADR3 

AMAMS4 

AMTYP4 

AMADR4 

AVECT1 

AVECT2 

ABASE 

ADEVM 

ACDW1 

ACDW2 

ADDWO 

ADDW1 

ADDW2 

ADDW3 

ADDW4 

ADDW5 

ADDW6 

ADDW7 

ADDW8 

ADDW9 

ADDW10 

ADDW1 1 

ADDW12 

ADDW13 

ADDW14 

ADDW15 



PASS COUNT 

DEVICE COUNT 
I/O UNIT NUMBER 

MESSAGE ADDRESS 

MESSAGE LENGTH 

APT ENVIRONMENT TABLE 

ENVIRONMENT BYTE 

ENVIRONMENT MODE BITS 

APT SWITCH REGISTER 

USER SWITCHES 

CPU TYPE, OPTIONS 
BITS 15-1 1*CPU TYPE 

1 1/04»Q1 ,1 1/05=02, 11/20=03, 11/40*04. 11 /45»05 
1 1/70a05,PDO"07,0»10 
BIT 10^REAL TIME CLOCK 
BIT 9*FLQAT!NG POINT PROCESSOR 
BIT B*MEMORY MANAGEMENT 
; ;HIGH ADDRESS. M.S. BYTE 
; ;MEM. ', fPE.BLMI 
MEM. TYPE BYTE — (HIGH BYTE) 
900 NSEC COPE-001 
300 NSEC BIPOLAR*002 
500 NSEC M0S=003 

HIGH ADDRESS. 3LK*1 

MEM. LAST ADDR.=3 BYTES, THIS WORD AND LOW OF "TYPE" ABOVE 

HIGH ADDRESS, M.S. BYTE 

MEM. TYPE, BLK42 

MEM. LAST ADDRESS, BLK#2 

HIGH ADDRESS. M.S. BYTE 

MEM. TYPE, BLK#3 

MEM. LAST ADDRESS, BLK#3 

HIGH ADDRESS. M.S. BYTE 

MEM. TYPE.BLM4 

MEM. LAST ADDRESS, BLK#4 

INTERRUPT VECT0R41.BUS PRIORITY01 

INTERRUPT VECT0R*2BUS PRIORITY02 

BASE ADDRESS OF EQUIPMENT UNDER TEST 

DEVICE MAP 

CONTROLLER DESCRIPTION W0RD#1 

CONTROLLER DESCRIPTION v.'0RD#2 

DEVICE DESCRIPTOR W0RD4Q 

DEVICE DESCRIPTOR W0RD*1 

DEVICE DESCRIPTOR W0RD*2 

DEVICE DESCRIPTOR W0RD*3 

DEVICE DESCRIPTOR W0RD*4 

DEVICE DESCRIPTOR WORD05 

DEVICE DESCRIPTOR W0RD*6 

DEVICE DESCRIPTOR W0RD*7 

DEVICE DESCRIPTOR WQRD#8 

DEVICE DESCRIPTOR WCRD#9 

DEVICE DESCRIPTOR WORD#10 

DEVICE DESCRIPTOR WORD/HI 

DEVICE DESCRIPTOR W0RD/M2 

DEVICE DESCRIPTOR W0RD/M3 

"EVICE DESCRIPTOR W0RD/M4 

DEVICE DESCRIPTOR WORD015 
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445 


001330 






446 








447 








448 








449 








450 








451 








452 




001330 




453 




0C0C24 




454 


000024 


000200 




455 




000044 




456 


000044 


001330 




457 




001330 




458 








459 








460 








461 








462 


001330 






463 


001330 


OOOOCO 




464 


001332 


0012C4 




465 


001334 


004540 




466 


001336 


000170 




467 


001340 


000360 




468 


001342 


0000L.2 




469 








470 








471 








472 


001344 






473 


001344 


177777 


000000 


474 


001350 


177777 


000000 


475 


001354 


1 7777 


000000 


476 


001350 


177777 


000000 


477 


001364 


177777 


oooooo 


478 


001370 


177777 


000000 


47 9 


001374 


177777 


oooooo 


480 


0014 00 


177777 


oooooo 


481 


001404 


177777 


oooooo 


482 


001410 


17 77 77 


oooooo 


483 


001414 


177777 


oooooo 


484 


001420 


17 7777 


oooooo 


485 


0014 24 


177777 


oooooo 


486 


001430 


177777 


OOOuOO 


487 


0014 34 


177777 


OOOOOO 


488 


001440 


17 7777 


OOOOOO 


489 


001444 


177777 


OOOOOO 


490 


001450 


177777 


OOOOCO 


491 


14 54 


17 7777 


OOOOOO 


492 


001460 


17 77 77 


OOOOOO 


493 


001464 


177777 


OOOOOO 


4 94 


001-370 


i 7 7 7 7 7 


OOOOCO 


495 


0014 74 


17 7 7 77 


OOOOCO 


496 


001500 


17 7777 


OOOOCO 


497 


001504 


17 7777 


OOOOOO 


498 


001510 


17 777 7 




499 


001512 


00 13^4 




500 









SETEND: 
.MEXIT 
. SBTTL APT PARAMETER BLOCK 



;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

.$X=. ; ;SAVE CURRENT LOCATION 

.=24 ;;SET POWER FAIL TO POINT TO START OF PROGRAM 

200 ; ;FOR APT START UP 

.=44 ;;POINT TO APT INDIRECT ADDRESS PNTR. 

$AT':IDR :;PQINT TO APT HEADER BLOCK 

. = .$X ;;RESET LOCATION COUNTER 



;SETUP 
; INTERF 

SAPThD: 

SHI51S: 

SMQADR: 

STSTM: 

SPASTM: 

SUNITM: 



APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
ACE SPEC. 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



.S0TTL APT STATISTICS TABLE 



;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

SMAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 

2400. ;;RUN TIM OF LONGEST TEST 

120. ;;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

240. ;;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 

SETE,*!D-$MAlL/2 ;; LENGTH MAI LBOX-ETABLE{ WORDS) 



SASTEND: 
$APTR: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.l\ORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
-WORD 
.WORD 
.WORD 
.WORD 
• WORD 
.WORD 
.WORD 
.WORD 
.WORD 

SASTAT 



-1 ,0 
-1 ,0 
-1 ,0 
-1 ,0 
-1 ,0 
-1 ,0 
-1 ,0 
-1 ,0 
-1 ,0 
-1 .0 
~1 ,0 
-1 ,0 
-1 ,0 
-1 ,0 
-1 ,0 
-1 ,0 
-1 ,0 
-1 ,0 
-1 ,0 
-1 ,0 
-1 ,0 
-1 ,0 
-1 ,0 
-1 ,0 
-1 ,0 
-1 
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501 






502 






503 






504 


001514 


OOOOCO 


505 


001516 


070032 


506 






507 


001520 


000000 


508 


001522 


000000 


509 


001524 




510 


001524 


000000 


511 


001526 


OPOOOO 


512 


001530 




513 


001530 


000000 


514 


001532 


000000 


515 


001534 




516 






517 


001534 


000000 


518 


001536 


000000 


519 


001540 




520 


001540 


000000 


521 


001542 


000000 


522 


001544 




523 


001544 


000000 


524 


C01546 


000000 


525 


001550 




526 


001550 


000000 


527 


001552 


ocoooo 


528 


001554 


000000 


529 






530 






531 


001556 


000 


532 


001557 


000 


533 


001560 


000 


534 




001562 


535 


001562 


ocoooo 


536 






537 


001564 


000000 


538 


001566 


ooooco 


539 






540 


001570 


cooooo 000000 


541 


001574 


ooooco 


542 






543 


001576 


ooooco 


544 


001600 


COOOGO 


545 






546 


001602 


000000 000000 


547 


001606 


000000 


548 


001610 


000000 


549 


C01612 


000004 


550 


001614 


000000 


551 


001616 


ocoooo 


552 


001620 


17 7746 


553 






554 






555 







♦THE FOLLOWING TAGS ARE USER DEFINED 



;VIRTUAL PC LOCATION FOR ERROR TYPEOUT ROUTINE (SERTYP). 

;CGRE PARITY REG BITS RESERVED FOR FUTURE USE. 

;NOTE: FOR MS1 1 MEMORY WITH PARITY, CHANGE TO 077772. 

;LAST CONTIGUOUS MEMORY ADDRESS (+2) 

;CCNTAINS DISPLAY REGISTER IMAGE 

; MEMORY MAP - EACH BIT CORRESPONDS TO 4K 

; FIRST WORD CONTAINS LOW (0-64K) MAP 

;SECOND WORD CONTAINS HIGH (64-128K) MAP 

;TEST MAP - WHICH BANKS ARE SELECTED FOR TEST. 

; FIRST WORD CONTAINS LOW (0-64K) MAP 

;SEv3ND WORD CONTAINS HIGH (64-128K) MAP 

;S'.VED TEST MAP - USED DURING FIRST PASS TO ONLY 

; TEST EACH BANK ONCE. 

; FIRST WORD CONTAINS LOW (0-64K) MAP 

;SECOND WORD CONTAINS HIGH (64-128K) MAP 

; PARITY MAP - WHICH BANKS HAVE MEMORY PARITY 

; FIRST WORD CONTAINS LOW (0-64K) MAP 

;SECOND WORD CONTAINS HIGH (64-128K) MAP 

IPOINTER TO CURRENT 4K BANK OF MEMORY 

; FIRST WORD CONTAINS LOW (0-64K) MAP 

;SECOND WORD CONTAINS HIGH (64-128K) MAP 

; TEMPORARY POINTER FOR 2ND 4K BANK OF MEMORY 

;FIRST WORD CONTAINS LOW (0-64K) MAP 

;SECOND WORD CONTAINS HIGH (64-128K) MAP 

;LCCP ADDRESS FOR MULTIPLE BLOCK TESTING. 

;SET UP BY "INITMM" AND "INITDN" ROUTINEES. 

;USED BY "MMUP" AND "MMDOWN" ROUTINES. 

;OPERATQR SELECTED PARAMETERS FLAG. (SA=204) 

;8K BLOCK INDICATOR. USED IN "INITMM" AND "MMUP". 

;ODD/EVEN FLAG USED IN PARITY MEMORY BYTE TEST. 

;FIRST VIRTUAL ADDRESS TO BE TESTED. 

-.FIRST ADDRESS IS USER SELECTABLE, 

;ADJUSTED FIRST ADDPESS. 

;BIT MASK TO ALLOW DOWNWARD ADDRESSING TESTS 

; TO BRL.AK TO "MMDOWN" TO FIND FIRST ADDRESS. 

;MAP OF BANK IN WHICH FIR r T ADDRESS IS LOCATED. 

;LAST VIRTUAL ADDRESS (+2) TO BE TESTED. 

ILAST ADDRESS IS USER SELECTABLE. 

;ADUUSTED LAST ADDRESS. 

;BIT MASK TO ALLOW UPWARD ADDRESSING TESTS 

; TO BREAK TO "MMUP" TO FIND LAST ADDRESS. 

;MAP OF BANK IN WHICH LAST ADDRESS IS LOCATED. 

;BLOCK MASK, DETERMINES THE BLOCK SIZE. 

'.USER SELECTABLE CONSTANT DATA. 

[WRITE WRONG PARITY COMMAND 

; TEMPORARY STORAGE 

;CACHE PRESENT FLAG 

;CACKE CONTROL REGISTER 



RELATIVE ADDRESSING TABLE. 

THE FOLLOWING LOCATIONS ARE MODIFIED AT RELOCATION TIME TO ALLOW 



SVERPC: 


.WORD 


RESRVD: 


.WORD 


LlmAD: 


.WORD 


LDDISP: 


.VlRD 


MEMMAP: 






.WORD 




.WORD 


TSTMAP: 






.WORD 




.WORD 


SAVTST: 






.WORD 




.WORD 


PMEMAP: 






.WORD 




.WORD 


BITPT: 






.WORD 




.WORD 


TMPPT: 






.WORD 




.WORD 


MMORE: 


.WORD 


SELFLG: 


.BYTE 


FLAG8K: 


.BYTE 


OEFLG: 


.BYTE 




.EVEN 


FSTADR: 


-WORD 


TMPFAD: 


.WORD 


FADMSK: 


.WORD 


FADMAP: 


.WORD 


LSTADR: 


.WORD 


TMPLAD: 


.WORD 


LADMSK: 


.WORD 


LADMAP: 


.WORD 


BLKMSK: 


.WORD 


.const: 


.WORD 


WWP : 


-.WORD 


TEMP: 


.WORD 


CASFLG: 


.WORD 


CA5REG: 


.WORD 



CZQMCFO 
CZQMCF.P11 
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SEQ 0095 



557 

558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 



001622 
001622 
001624 
001626 
CO 1630 
001632 
001634 
001636 
001640 
001642 
001644 



001646 
001654 
0016G0 
001666 
001674 
001702 
001706 
001714 
001720 
001726 
001734 
001736 
001744 
001752 
001754 
001762 
001770 
001772 
002000 
002002 
002010 
002016 
002024 
002030 
002036 
002042 
002046 



002050 
002052 
002054 
002056 
002060 
002062 
002064 



001 100 
001516 
002076 
0C2276 
01 2052 
002050 
017430 
002340 
000010 
01 4004 



001 1 16 
0C1 126 
001514 
001 124 
00 1514 
001 124 
001514 
001 120 
001514 
001 160 
000000 
0C1514 
001 120 
OOOOCO 
001514 
001 122 
000000 
001514 
000000 
001514 
001 160 
001514 
001 162 
001 160 
001 126 
001166 
177777 



12 5325 
1^2652 
052452 
025125 
102070 
072527 
177777 



001 120 
000000 
001 1 16 
001 126 
001 1 16 
000000 
001 1 16 
000000 
001 1 16 
001 124 

001 1 16 
001 124 

001 1 16 

001 124 



001116 001122 



001 122 
000000 
001 160 



001 1 16 

001 162 

001 1 16 

000000 

001162 001120 

000000 

000000 



RELATIVE ADDRESSING TO GET THE RELOCATED VALUE OF THE ARGUEMEMT TAGS. 



RADTAB: 

STACK: STACK 

RESRV: RESRVD 

MPRO: MPRO ' 

MPRX: MPRX 

PBTRP: PBTRP 

MPPAT: MPPATS 

PESRV: PESRV 

ERRTB: SERRTB 

EIGHT: 8. 

TST32: TST32 



;STACK POINTER INITIAL ADDRESS. 

;PARITY REGISTER RESERVED BIT MASK ADDRESS. 

;MEMORY PARITY REGISTER TABLE ADDRESS. 

;MEMORV PARITY REGISTER EXIST TABLE ADDRESS. 

;PARITY BYTE TEST TPAP ROUTINE ADDRESS. 

;MEMORY PARITY PATTERN TABLE ADDRESS. 

;MEMORY PARITY ERROR TRAP ROUTINE ADDRESS. 

;ERROR TYPEOUT TABLE PONTER. 

;DECIMAL TYPE ROUTINE COUNT DESIGNATOR. 

;SCCPE ABORT ADR FOR WHEN NO MEM AVA FOR TEST. 



001 120 
000000 
001 120 



001 120 
001 126 



001 160 
001 126 



DATA CONTAINERS FOR ERROR PRINTOUT. 

DTI : $ERRPC,SGDADR,$GDDAT, SBDDAT, 

DT2: $VER.>C,$ERRPC,$GDADR,$Gu DAT, SBDDAT, 

DT12: $VERPC,$ERRPC,$GDADR.$GDDAT,0 

DT14: $VERPC,$ERRPC,$TMPO,$GDADR,0 

DT15: $VERPC.SERRPC,$GDADR,$TMP0,$GDDAT, SBDDAT, 

DT21 : $VERPC,$ERRPC,$TMPO,$GDADR,$GDDAT,$BDDAT,0 



001120 DT23: SVERPC , SERRPC , SuDADR , SBDADR , SGDDAT , SBDDAT ,0 



DT24: SVERPC, SERRPC, SBDADR, 

DT25: $VE,<PC, SERRPC, SBDADR, $TMP0,$TMP1 ,0 

DT26: SVERPC, SERRPC, $TMP0,$TMP1 ,0 

DT30: $TMP0,$TMP1 , SGDADR , SBDDAT ,0 

DT31: STMP3.0 

.WORD -1 ;TABLE TERMINATOR. 

.SBTTL MEMORY PARITY PATTERNS TABLE 

E FOLLOWING ARE THE PARITY PATTERNS EXERCISED THRUOUT MEMORY 



MPPATS: 



125325 
152652 
052452 
025125 
102070 
072527 
177777 



;EVEN,ODD 
; ODD, EVEN 
;EVEN,ODD 
;ODD,EVEN 
; EVEN, EVEN 
; ODD, ODD 
;EVEN,EVEN 
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) 



613 


002066 


107030 


614 


P02070 


152525 


615 


002072 


000000 


616 






617 


002074 


oooooo 


618 






619 






620 






621 






622 






623 






624 






625 






626 






627 






628 






629 






630 






631 






632 


00207S 


172101 


633 


0Q2100 


pooooo 


634 


002102 


oooooo 


635 


002104 


oooooo 


636 


002106 


172103 


637 


002110 


pooooo 


639 


0021 12 


oooooo 


639 


002114 


oooooo 


640 


002116 


172105 


641 


002120 


oooooo 


642 


00212,2 


oooooo 


643 


002124 


C-OOQO 


644 


002126 


172107 


645 


002130 


OOOOOO 


646 
647 


002132 


OOOOOO 


002134 


oooooo 


648 


002136 


172111 


649 


002140 


oooooo 


650 


002142 


oooooo 


S51 


002144 


oooooo 


652 


002146 


172113 


653 


002150 


oooooo 


654 


002152 


oooooo 


655 


002154, 


oooooo 


656 


002156 


172115 


657 


002160 


oooooo 


659 


002162 


oooooo 


659 


002164 


oooooo 


66p 


002166 


172117 


661 


00217O 


pooooo 


662 


002172^ 


oooooo 


663 


002174 


oooooo 


664 


002176 


172121 


665 


002200 


oooooo 


666 


002202 


oooooo 


667 


002204 


oooooo 


668 


002206 


172123 



107030 
152525 
Q 



;ODD,OpD 

;ODD.EVEN 

;EXTRA PATTERN HOLDER FOR 

; FUTURE USE 

;TA8LE TERMINATOR 



.SBTTL MEMORY PARITY REGISTER ADDRESS TABLE 
////////////////////////////////////////////////////////////////////// 

* THE FOLLOWING REPRESENTS THE MEMORY PARITY REGISTER ADDRESS TABLE 

* FROM WHICH RARITY MEMORY IS ADDRESSED & CONTROLLED: 

* THE LEAST SIGNIFICANT BIT IN THE DEVICE ADDRESS IS SET TO A ONE ( 1 ) 

* IF THE CpNTROU IS FOUND NOT TO BE PRESENT. THE MEMORY PRESENT UNDER 

* THE CON T ^0L QF EACH CONTROLLER IS REPRESENTED BY TWO (2) WORDS FOLLOWING 

* THE DEVICE ADDRESS, EACH BIT REPRESENTING A 4K BLOCK. I.E. 

* FIRST WORD BIT0 * - 4K f BIT1 ■ 4 - 8K,... BIT15 * 60 - 64K 

* SECONC WORP BITp * 64 t 68K,... BIT14 ■ 120 - 124K. 
////////////////////////////////////////////////////////////////////// 



MPRO: 



172100 




172102 







172110 +1 




17211? +1 




172129 +1 







172122 +1 



PARITY STATUS REGISTER 
CONTROL MAP (LOW 64K) 
CONTROL MAP (HIGH 64K) 
MASK FOR M0S,C0RE,MS1 1-K 
PARITY STATUS REGISTER 
CONTROL MAP (LOW 64K) 
CONTROL MAP (HIGH 64K) 
MASK FOR MOS, CORE, MS1 1-K 
PARITY STATUS REGISTER 
CONTROL MAP (LOW 64K) 
CONTROL MAP (HIGH 64K) 
MASK FOR MOS, CORE, MS1 1-K 
PARITY STATUS REGISTER 
CONTROL MAP ( LOW 64K) 
CONTROL MAP (HIGH 64K) 
MASK FOR MOS, CORE, MS1 1-K 
PARITY STAUS REGISTER 
CONTROL MAP ( LOW 64K) 
CONTROL MAP (HIGH 64K) 
MASK FOR MOS, CORE, MS11-K 
PARITY STATUS REGISTER 
CONTROL MAP (LOW 64K) 
CONTROL MAP (HIGH 64K) 
MASK FOR MOS, CORE, MS11-K 
PARITY STATUS REGISTER 
CONTROL MAP (LOW 64K) 
CONTROL MAP (HIGH 64K) 
MASK FOR MOS, CORE, MS1 1-K 
PARITY STATUS REGISTER 
CONTROL MAP (LOW 64K) 
CONTROL MAP (HIGH 64K) 
MASK FOR MOS, CORE, MS1 1-K 
PARITY STATUS REGISTER 
CONTROL MAP ( LOW 64K) 
CONTROL MAP (HIGH 64K) 
MASK FOR M0S,C0RE,MS1 1-K 
PARITY STATUS REGISTER 
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669 


002210 


pc-oooo 


670 


002212 


oooooo 


671 


Q02214 


oooooo 


672 


002216 


1721T5 


673 


002220 


oooooo 


674 


002222 


oooooo 


675 


002224 


oooooo 


676 


002226 


172127 


677 


002230 


oooooo 


678 


002232 


oooooo 


679 


002234 


oroooo 


680 


002236 


17 2131 


681 


002240 


oooooo 


682 


002242 


ocoooo 


683 


002244 


ocoooo 


684 


00?246 


172133 


685 


002250 


oooooo 


686 


002252 


ocoooo 


687 


0Q2254 


ocoooo 


688 


PP2256 


17?135 


689 


002260 


oooooo 


690 


002262 


OOOOOO 


691 


PP2264 


OOOOCO 


692 


002266 
0p2270 


172137 


693 


oooooo 


694 


002272 


ocoooo 


6,95 


002274 


ocoooo 


696 






697 


002276 


000021 


698 






699 







; CONTROL MAP ( LOW 64K ) 
[CONTROL MAP (HIGH 64K) 
[MASK FOR MOS, CORE, MS1 1-K 

PARITY STATUS REGISTER 
; CONTROL MAP ( LOW 64K) 
;CONTROL MAP (HIGH 64K) 
[MASK FOR MOS .CORE, MS1 1 -K 

PARITY STATUS REGISTER 
[CONTROL MAP (LOW 64K) 
[CONTROL MAP (HIGH 64K) 
[MASK FOR MOS, CORE, MS1 1-K 
:PARITY STATUS REGISTER 
[CONTROL MAP ( LOW 64K) 
;CONTRQL MAP (HIGH 64K) 
[MASK FOR MOS, CORE, MS1 1-K 

PARITY STATUS REGISTER 
;CpNTROL MAP (LOW 64K) 
:CONTROL MAP (HIGH 64K) 

MASK FOR MOS, CORE, MS1 1-K 

PARITY STATUS REGISTER 

CONTROL MAP (LOW 64K) 

CONTROL MAP (HIGH 64K) 

MASK FOR MOS, CORE, MS1 1-K 
;PARITY STATUS REGISTER 
;CONTROL MAP (LOW 64K) 

CONTROL MAP (HIGH 64K) 
;MASK FOR MOS, CORE, MS11-K 
IS THE ^ND OF THE TABLE ! 

.BLKW 17, {TABLE TO HOLD JUST PARITY STATUS REGISTERS THAT EXIST. 
! (THE EXTRA WORD IS FOR A TERMINATOR.) 



MPR1Q: 172124 f 1 



*!126 +1 



P 



MPR12: 172130 +1 





172132 +1 







172134 +1 







172136 +1 







;THIS 
MPRX: 
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702 






703 






704 






705 






706 






707 






708 






709 






710 






711 






712 






713 






714 


002340 




715 






716 


002340 


027010 


717 


002342 


030367 


718 


002344 


001646 


719 


002346 


030734 


720 






721 


002350 


027044 


722 


002352 


030406 


723 


002354 


00 1660 


724 


002356 


030740 


725 






726 


002360 


027044 


727 


002362 


030406 


728 


002364 


001660 


729 


002366 


030745 


730 






731 


002370 


027100 


732 


002372 


030406 


733 


002374 


001660 


734 


002376 


030740 


735 






736 


002400 


027136 


737 


002402 


030406 


738 


002404 


001660 


739 


002406 


030740 


740 






741 


002410 


02 7174 


742 


002412 


030406 


743 


002414 


0016' 


744 


002416 


030740 


745 






746 


002420 


027240 


747 


002422 


030406 


748 


002424 


001660 


749 


002426 


030740 


750 






751 


002430 


027301 


752 


002432 


030406 


753 


002434 


001660 


754 


002436 


030740 



.SBTTL ERROR POINTER TABLE 

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

;*NOTE1: IF SITEMB IS THE ONLY PERTINENT DATA IS (SERRPC). 

;*NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 



EM 



SERRTB: 


i * 


ITEM 1 




DM1 




DH1 




DT1 




DF1 


; * 


ITEM 2 




DM2 




DH2 




DT2 




DF2 


; * 


ITEM 3 




DM2 




DH2 




DT2 




DF3 


; * 


ITEM 4 




DM4 




DH2 




DT2 




DF2 


; * 


ITEM 5 




DM5 




DH2 




DT2 




DF2 


; * 


ITEM 6 




DM 6 




DH2 




DT2 




DF2 


; * 


ITEM 7 




DM7 




DM 




DT2 




DF2 


; * 


' TEM 10 




DM10 




DH2 




DT2 




DF2 


;* 


ITEM 11 



;FOINTS TO THE ERROR MESSAGE 

;POINTS TO THE DATA HEADER 

-.POINTS TO THE DATA 

;POINTS TO THE DATA FORMAT 



PARITY REGISTER DATA ERROR. 

PC,REG,S/B,WAS 

SERRPC, iGDADR, SGDDAT, SBDDAT 

16,18,16,16 

ADDRESS TEST ERROR ( TST1 -5) . 

V/PC, P/PC, MA, S/B, WAS 

SVER PC. SERRPC, $GDADR,$GDDAT, SBDDAT 

16,18,18,16,16 

ADDRESS TEST ERROR ( TST 1 -5) . 

V/PC.P/PC,MA,S/B,WAS 

SVER PC, $ ERR PC, SGDADR , $GDDAT , SBDDAT 

16,18,18,8,8 

CONSTANT DATA ERROR ( TST6-1 ) . 

V/PC, P/PC.MA.S/B, WAS 

SVER PC, SERRPC, SGDADR, SGDDAT, SBDDAT 

16,18,18,16,16 

ROTATING BIT ERROR ( TST 1 1 -1 2 ) . 

V/PC, P/PC, MA, S/B, WAS 

SVERPC, SERRPC, SGDADR, SGDDAT, SBDDAT 

16,18,18,16,16 

MOS REFRESH TEST EPROR (TST30-31). 

V/PC,P/PC,MA,S/B,WAS 

SVER PC, SERRPC, SGDADR, SGDDAT, SBDDAT 



,16 



16 



3 XOR 9 PATTERN ERROR ( TST1 3-1 6 ) . 

V/PC,P/PC,MA,S/B,WAS 

SVERPC , SERRPC , SGDADR , SGDDAT , SBDDAT 

16,18,18, 16,16 

MARCHING 1'S AND O'S ERROR ( TST27 ) . 

V/PC,P/PC,MA,S/B,WAS 

SVwR PC, SERRPC, SGDADR, SGDDAT, SBDDAT 

1 " , 18, 18, 16, 16 
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756 


002440 


027345 


757 


002442 


030406 


758 


002444 


001660 


759 


002446 


030745 


760 






761 


002450 


02741 1 


762 


002452 


030433 


763 


002454 


001674 


764 


002456 


030745 


765 






766 


002460 


027465 


767 


002462 


030433 


768 


002464 


001674 


769 


002466 


030745 


770 






771 


002470 


027555 


772 


002472 


030454 


773 


0C2474 


001706 


774 


002476 


030752 


775 






776 


002500 


02 7010 


777 


002502 


030475 


778 


002504 


001720 


779 


002506 


0307-2 


780 






781 


002510 


027654 


782 


002512 


030454 


783 


002514 


001706 


784 


002516 


030752 


785 






786 


002520 


Of 7733 


787 






788 


002522 


030406 


789 


002524 


001660 


790 


002526 


030745 


791 






792 


002530 


030031 


793 


002532 


030406 


79d 


002534 


001660 


795 


002536 


030740 


796 






797 


002540 


030063 


798 


002542 


030530 


799 


002544 


001726 


800 


002546 


030760 


801 






802 






803 


002550 


03 0132 


804 


002552 


030561 


805 


002554 


0U1754 


806 


002556 


030752 


807 






808 


0025GG 


030177 


809 


002562 


C3 0621 


810 


002564 


001772 


811 


002566 


030752 



DM1 1 
DH2 
DT2 
DF3 

ITEM 12 
DM12 
DH12 
DT12 
DF3 

ITEM 13 
DM13 

DT12 

DF3 
ITEM 14 
DM14 
DH14 
DT'4 
DF14 
ITEM 15 
DM1 
DH15 
DT15 
DF14 
ITEM 16 
DM16 
DH14 



DM17 

DH2 
DT2 
DF3 

ITEM 20 
DM20 
DH2 
DT2 
DF2 

ITEM 21 
DM21 
DH21 
DT21 
DF21 

ITEM 22 

ITEM 23 
DM23 
DH23 
DT23 
DF14 

ITEM 24 
DM24 
DH24 
DT24 
DF14 



;PARITY MEMORY ADDRESS ERROR ( TST1 7 ) . 
; V/PC, P/ PC, MA, 5/ B, WAS 
; SVERPC, SERRPC, SGDADR, SGDDAT, SBDDAT 
;16, 18, 18,8,8 

;DATIP WITH WRONG PARITY DIDN'T TRAP(TST17). 

; V/PC,P/PC,MA,S/B 

; SVERPC, SERRPC, SGDADR, SGDDAT 

; 16, 18, 18,8 

;WRONG PARITY TRAPED, BUT NO REGISTER SHOWS ERROR FLAG. 

;V/PC,P/PC,MA,S/B 

; SVERPC, SERRPC, SGDADR, SGDDAT 

; 16, 18, 1 8,8 

;PARITY REGISTER NOT MAPPED AS CONTROLLING THIS ADDRESS ( TST1 7 ) . 

;V/PC, P/PC, REG, MA 

; SVER PC, SERRPC, STMPO, SGDADR 

; 16, 18, 18, 18 

;PARITY REGISTER DATA ERROR. 

; V/PC , P/PC , MAUT , REG , S/B , WAS 

; SVER PC, SERRPC, SGDADR, STMPO, SGDDAT, SBDDAT 

; 16, 18, 18, 18, 16, 16 

;MCRE THAN ONE REGISTER INDICATED PARITY ERROR. 

;V/PC,P/PC,REG,MA 

; SVER PC, SERRPC. STMPO, SGDADR 

; 16, 18, 18, 18 

;DATA SHOULDN'T HAVE CHANGED WHEN PARITY ERROR 

; TRAPP£D(TST21 ) . 

; V/PC, P/PC, MA, S/B, WAS 

;SVtRPC, SERRPC. SGDADR, SGDDAT, SBDDAT 



,18 



; RANDOM DATA ERROR ( TST20 ) . 

;V/PC,P/PC,MA,S/B,WAS 

; SVER PC, SERRPC. SGDADR, SGDDAT, SBDDAT 

; 16, 18. 18,16,16 

INSTRUCTION EXICUTICN ERROR ( TST21 -26 ) . 

; V/PC, P/PC, I UT, MA, S/B, WAS 

; SVERPC ,$ERRPC. STMPO, SGDADR, SGDDAT, SBDDAT 

-,16,18,16,18,16,16 

;NOT USED 

; PROGRAM CODE CHANGED WHEN RELOCATED. 
;V/PC, P/PC, SRC MA.DST MA, S/B, WAS 
; SVER PC, SERRPC, SGDADR, SBDADR, SGDDAT, SBDDAT 
; 16, 18, 18, 18, 16, 16 

STRAPPED, BUT NO REGISTER HAD ERROR BIT SET. 

; V/PC, P/PC.TRP/PC 

; SVER PC, SERRPC', SBDADR 

I 16, 18, 1 8 



M 
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812 






813 


002570 


030253 


814 


002572 


030642 


815 


002574 


0020T2 


816 


002576 


030752 


817 






818 


002600 


030273 


813 


002602 


030673 


820 


002604 


0C2016 


821 


002606 


030740 


822 






823 


002610 


030313 


824 


002612 


030673 


825 


002614 


002016 


826 


002616 


030740 


827 






828 


002620 


OCOOOO 


829 


002622 


030715 


830 


002624 


002030 


831 


002626 


030766 


832 






833 


002630 


030347 


834 


002632 


000000 


835 


002634 


002042 


836 


002636 


030766 



16K VER MACY11 30A(1052) 
ERROR POINi'ER TABLE 

;* ITEM 25 

DM25 

DH25 

DT25 

DF14 
!* ITEM 26 

DM26 

DK16 

DT26 

DP2 
J* :TEM 27 

DM27 

DH26 

DT26 

DF2 
J* ITEM 30 



DH30 

DT30 

DF30 
;* ITEM 31 

DM31 



DT31 

DF30 
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•.TRAPPED TO 1 14. 
;V/PC,P/PC,TRP/PC,REQ,WAS 
;$VERPC,SERRPC,$BDADR,$TMP0,$TMP1 
{16,18,18,18,16 

{FAILED TO TRAP. 
;V/PC,P/PC,REQ,WAS 
;$VERPC,$ERRPC,$TMP0,$TMP1 
;16, 18,18,16 

;(ACTION ENABLE WASN'T SET). 
;V/PC,P/PC,REG,WAS 
;SV-RPC,$ERRPC,STMP0,S8DDAT 
if*. ,18,18.16 

;NC MESSAGE. 
;REG,WAS,MA,WAS 
;$TMP0,STMP1 ,$GDADR,SBDDAT 
; 18, 16, 1 3,8 

{TRAPPED TO 4 
;N0 HEADER 

;$TMP3 



||l| 
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CZQMCF.P11 14-FEB-78 08:19 START: SETUP AND MAP MEMORY 

837 .SBTTL START! SETUP AND MAP MEMORY 

/*\:/»\:/*\:/*\:/*\:/*\:/*\:/*\s/*\:/"\:/*\:/*\:/*\:/*\:/*\:/*\:/*\:/*\: 

* THIS IS THE NORMAL ( C A ■ 200) BEGINNING OF THE PROGRAM. 

* NOTE: THIS CODE IS NOT POSITION INDEPENDENT. 
/:\*/:\*/:\*/:\*/:\*/:\*/:\*/:\*/:\*/:\*/:\*7:\*/:\*/:\*/:\*/:\*/:\*/:\* 



844 002640 105067 176712 

845 002644 000403 

846 002646 112767 177777 

847 002654 



START: CLRB SELFLG 
BR STARTA 
SELECT: MOVB #-1 , SELFLG 
STARTA: 
•SBTTL INITIALIZE THE COMMON TAGS 



;CLEAR SELECT PARAMETER FLAG. 
;G0 DO SETUP AND MEMORY MAP. 
;SET THE SELECT PARAMETERS FLAG. 



849 










;;CLEAF 


* THE < 


:OMMON TAGS (SCMTAG) 


850 


002654 


012706 


001 1 C i 






MOV 


#$CMTAG,R6 


851 


002660 


005026 








CLR 


(R6) + 


852 


002662 


022706 


001 140 






CMP 


0SWR.R6 jjDONE? 


853 


002666 


001374 








BNE 


.-6 


854 


002670 


012706 


001100 






MOV 


#STACK,SP 


855 










{{INITIALIZE 


A FEW VECTORS 


856 


002674 


012737 


000610 


000024 




MOV 


#SPWRDN,e#PWRVEC 


857 


002702 


012737 


000340 


000026 




MOV 


#340,@#PWRVEC+2 


858 


002710 


016767 


01 1242 


011232 




MOV 


SENDCT.SEOPCT 


859 










;;SIZE 


FOR A 


HARDWARE SWITCH REG 


860 










;; EQUAL TO A 


"-1", SETUP FOR A S 


861 


002716 


013746 


000004 






MOV 


©#ERRVEC,-(SP) 


862 


002722 


012737 


002756 


000004 




MOV 


#64$,@#ERRVEC 


863 


002730 


012767 


177570 


17t^02 




MOV 


IDSWR.SWR 


864 


002736 


012767 


177570 


176176 




MOV 


#DDISP, DISPLAY 


865 


002744 


022777 


177777 


176166 




CMP 


#-1 ,@SWR 


866 


002752 


001012 








BNE 


66$ 


867 
















868 


002754 


000403 








BR 


65$ 


869 


002756 


012716 


002764 




64$: 


MOV 


#65$, (SP) 


870 


002762 


0000C2 








RTI 




871 


002764 


012767 


000176 


176146 


65$: 


MOV 


#SWREG,SWR 


872 


002772 


012767 


000174 


176142 




MOV 


4DISPREG, DISPLAY 


873 
874 
875 


003000 


012637 


000004 




66$: 


MOV 


(SP)+,@0tRRVEC 


003004 


005067 


176202 






CLR 


SPASS 


876 


003010 


132767 


000200 


176207 




BITB 


#APTSIZE,$ENVM 


877 


003016 


001403 








BEQ 


67$ 


878 


003020 


012767 


001226 


176112 




MOV 


#$SWREG,SWR 


879 


003026 








67$: 






880 


003026 


0050'*.7 


176470 






CLR 


LDDISP 


881 


003032 


005077 


176104 






CLR 


§>DISPLAY 


882 










.SBTTL 


TYPE 


PROGRAM NAME 


883 










;;TYPE 


THE NAME OF THE PROGRAM I 


884 


003036 


005227 


177777 






V-Z 


#-1 


885 


003042 


001040 








BNE 


63$ 


886 


003044 


022737 


014222 


0(50042 




CMP 


#$ENDAD,W42 


887 


003052 


0*1434 








BEQ 


68$ 


888 


003054 


004567 


020432 






USR 


R5, $PRINT 


889 


003060 


003132 








.WORC 


69$ 


890 










.SBTTL 


GET VALUE FOR SOFTWARE SV 


891 


003062 


005737 


000042 






TST 


•#42 


B92 


003066 


001015 








BNE 


70$ 



; FIRST LOCATION TO BE CLEARED 
JCLEAR MEMORY LOCATION 

{LOOP BACK IF NO 

;SETUP THE STACK POINTER 

; ; POWER FAILURE >'ECTOR 
; LEVEL 7 

{SETUP END-OF-PROGRAM COUNTER 
STER. IF NOT FOUND OR IT IS 
SOFTWARE SWITCH REGISTER. 
;SAVE ERROR VECTOR 
;SET UP ERROR VECTOR 

{SETUP FOR A HARDWARE SWICH REGISTER 
;AND A HARDWARE DISPLAY REGISTER 
;TRY TO REFERENCE HARDWARE SWR 
; BRANCH IF NO TIMEOUT TRAP OCCURRED 
;AND THE HARDWARE SWR IS NOT ■ -1 
; BRANCH IF NO TIMEOUT 
;SET UP FOR TRAP RETURN 

;POINT TO SOFTWARE SWR 

{RESTORE ERROR VECTOR 

{CLEAR PASS COUNT 
{TEST USER SIZE UNDER APT 
{YES, USE NON-APT SWITCH 
iNO.USE APT SWITCH REGISTER 

CLEAR DISPLAY REGISTER STORAGE LOCN 
CLEAR DISPLAY REGISTER 

' FIRST PASS 

;FIRST TIME? 

{BRANCH IF NO 

jACT-11? 

JBRANCH IF YES 

GO PRINT OUT THE FOLLOWING MESSAGE. 

ADDRESS OF MESSAGE TO BE TYPED 
IITCH REGISTER 

;ARE WE RUNNING UNDER XXDP/ACT? 

5BRANCH IF YES 
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GET VALUE FUr! SOFTWARE SWITCH REGISTER 



893 
894 
895 
896 
897 
898 
899 
900 
901 
9C2 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 



003070 
003076 
003100 
003106 



0031 10 
0031 14 
003120 
003122 
003130 
003130 

003144 
003144 
003146 
003152 
003154 
003160 
003166 
003172 
003176 
003202 
003204 
003210 
003212 
003220 



126727 
00141 1 
026727 
0C1010 



004767 
000403 
1 12767 



01 0700 
0227C0 
001402 
000167 
012767 
005067 
005067 
105737 
00101 1 
0057 J 7 
001406 
023737 
001402 



003226 
003232 
003240 
003242 
003250 
003254 
003260 
003264 
003270 



003272 
003276 
003302 
003310 
003316 



176130 
176034 



177776 
017316 



003222 004767 014122 



0C5067 
032777 

001014 
012737 
005037 
004767 
005267 
004567 
025354 



012706 

005067 
012737 
052767 
012767 



175354 
010000 

003272 
177572 
01 1020 
175322 
020222 



001 100 
176314 
003324 
000014 
000001 



000001 
000176 



CMPB SENV,#1 

BEO 70S 

CMP SWR,#SWREG 

BNE 71$ 



000001 176004 



003146 



70$: 
71$: 



;;ARE WE RUNNING UNDER APT? 

; BRANCH IF YES 
;;SOFTWARE SWITCH REG SELECTED? 
; BRANCH IF NO 

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE SGTSWR ROUTINE 
WIHTOUT USING A "TRAD" INSTRUCTION AS CALLED FOR BY **SYSMAC**. 

MOV @#PSW, -(SP) ;PUT THE PROCESSOR STATUS ON THE STACK 

JSR PC, SGTSWR ;G0 TO THE SUBROUTINE 

BR 71$ 

MOVB #1,$AUT0B ;;SET AUTO-MODE INDICATOR 



;;69$: 
68J: 



175414 10$: 



175120 
000003 
175412 
175402 
001224 

000042 



000042 000046 



BR 



MOV 

CMP 

BEO 

JV-"> 

MOV 

CLR 

CLR 

TSTB 

BNE 

TST 

BEO 

CMP 

BEQ 



68$ ; :GET OVER THE ASCIZ 

<CRLF>' CZOMCFO' <CRLF> 



10$ 
RESTAR 

#3, PR 

PRGMAP+2 

RELOCF 

@#$ENV 

13$ 

@#42 

13$ 

@#42,@#46 

13$ 

PC.SAVLDR 



CHECK IF MEMORY MANAGEMENT 



175700 
000004 



CLR 
BIT 

BNE 
MOV 
CLR 
JSR 

INC 
JSR 
.WORD 



MMAVA 

#SW12, @>SWR 

IMPCK 

#impck,@#e.;rvec 

@#SR0 



PC, 

MMAVA 



MMINIT 



;GET CURRENT PROGRAM COUNTER. 

;CHECK IF THE PROGRAM IS RELOCATED. 

;BR IF PROGRAM NOT RELOCATED. 

;G0 TRY TO PELOCTED BEFORE CONTINUING. 

UNITIALIZE PROGRAM MAP LO 64K. 

; . . .HI 64K. 

; INI T THE RELOCATION FACTOR. 

;CHECK FOR APT11 

;BR IF APT I 1 

; CHECK FOR STANDALONE 

;BR IF STANDALONE 

;CHECK FOR ACT1 1 

;BR IF ACT1 1 

;MUST BE XXDP 

;G0 SAVE LOADERS 

IS AVAILABLE, AND SET IT UP IF IT IS. 
CLEAR MEM MGMT AVAILABLE FLAG 
CHECK FOR INHIBIT KT11 SWITCH 
ERANCH IF SET 

SET UP TIMEOUT TRAP VECTOR 
CLEAR MEM MGMT STATUS REG 
MEM MGMT INITIALIZATION ROUTINE. 
SET MEM MGMT AVAILABLE FLAG 
GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
"KT11 AVAILABLE" 



. % 



;CLEAR CACHE PRESENT FLAG 



000004 
174430 
176272 



CHECK IF CACHE PRESENT, IF SO TURN IT OFF!!! 

MOV #STACK, SP 

CLR CASFLG 

MOV #MAPMEM,@#ERRVEC 

BIS #14, IMPCHE 

MOV #1, CASFLG ;SET CACHE PRESENT FLAG 



ROUTINE TO MAP ALL OF MEMORY. 

ONLY FULL 4K BANKS WILL BE RECOGNIZED. 

RO = MEMMAP POINTER... LO 64K. 

R1 = MEMMAP POINTER... HI 64K. 

R2 = ADDRESS POINTER 

R3 = BANK POINTER... LO 64K. 
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950 








951 








952 


003324 


012706 


001 100 


953 


003330 


01 2700 


001524 


954 


003334 


01 2701 


001526 


955 


003340 


00 5010 




956 


003342 


00501 1 




957 


003344 


005002 




958 


003346 


012703 


000001 


959 


003352 


005004 




960 


003354 


005067 


175606 


961 


003360 


004567 


020126 


962 


003364 


025421 




963 








964 


003366 


012737 


003502 000004 


965 


003374 


01 1222 




966 


003376 


022702 


017777 


967 


003402 


00 1374 




968 


003404 


05 0310 




969 


003406 


05041 1 




970 


003410 


010267 


175550 


971 


003414 


005367 


175544 


972 


003420 


005767 


175162 


973 


003424 


001432 




974 


003426 


042767 


160000 175530 


975 


003434 


0^3705 


172344 


976 


003440 


005067 


175522 


977 


003444 


006305 




978 


003446 


006305 




979 


003450 


006305 




980 


003452 


006305 




981 


003454 


006305 




982 


003456 


CC6167 


175504 


983 


003462 


006305 




984 


003464 


0C6167 


175476 


985 


003470 


060567 


175470 


98b 


003474 


005567 


175466 


987 


003500 


000404 




988 








939 








990 


003502 


022626 




991 


003504 


052702 


017777 


992 


003510 


0052'.2 




993 


003512 


005767 


175070 


994 


003516 


00141 1 




995 


0C3520 


062737 


000200 172344 


996 


003526 


012702 


040000 


997 


003532 


006303 




998 


003534 


006104 




999 


003536 


1^0316 




1000 


003540 


000402 




1001 








1002 


003542 


10 630 3 




1003 


003544 


10 03-3 




1004 


003546 


012737 


025114 000004 



;* 


R4 = E 
R5 = E 


SANK POINTER. . -HI 
CRATCH REGISTER. 


J ;***** 


******* 


**************** 


MAPMEM: 


MOV 


#STACK, SP 




MOV 


*MEMMAP,RO 




MOV 


#MEMMAP+2,R1 




CLR 


(RO) 




CLR 


(R1) 




CLR 


R2 




MOV 


#1 , R3 




CLR 


R4 




CLR 


STMP3 




USR 


R5, SPRINT 




.WORD 


MEMMES 




MOV 


#2$, 6>#ERRVEC 


1$: 


MOV 


(R2), (R2J+ 




BIT 


#MASK4K,R2 




BNE 


1$ 




BIS 


R3, (RO) 




BIS 


R4, (R1) 




MOV 


R2, STMP2 




DEC 


$TMP2 




TST 


MMAVA 




BEQ 


3$ 




BIC 


#160000. STMP2 




MOV 


@#KIPAR2,R5 




CLR 


STMP3 




ASL 


R5 




ASL 


R5 




ASL 


R5 




ASL 


R5 




ASL 


R5 




ROL 


STMP3 




ASL 


R5 




ROL 


STMP3 




ADD 


R5, STMP2 




ADC 


STMP3 




BR* 


3$ 


;* TIMEOUT TRAPS TO HERE 


2S: 


CMP 


(SP)+, (SP)+ 




BIS 


#MASK4K,R2 




INC 


R2 


3$: 


TST 


MMAVA 




BEO 


4$ 




ADD 


#200, @#KIPAR2 




Mf-7 


#40000, R2 




ASL 


R3 




ROL 


R4 




BPL 


1$ 




BR 


5$ 


4S: 


ASLB 


R3 




BPL 


1$ 


5S: 


MOV 


#ERRTRP, <a#ERR 



;RESET THE STACK 

;SET UP MEMORY MAP POINTER... LO 64K. 

; . . .HI 64K. 

;CLR MEMORY MAP...LO 64K. 

; . . .HI 64K. 

;SET ADDRESS POINTER TO 

;SETUP 4K BANK POINTER. ..LO 64K. 

; . . .HI 64K. 

; INIT TEMPORARY HIGH ADDRESS BITS. 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 

-.ADDRESS OF MESSAGE TO BE TYPED 

; "MEMORY MAP: " 

;SET UP TIMEOUT VECTOR 

;READ+WRITE ALL MEMORY 

;CHECK FOR 4K BOUNDRY 

; BRANCH IF MORE IN BANK 

;SET FLAG FOR BANK...LO 64K. 

; . . .HI 64K. 

;SAVE ADDRESS POINTER. 

;ADJUST TO LAST ADR, LAST BANK. 

; CHECK FOR MEM MGMT. 

;BR IF NO MEM MGMT. 

;CLEAR BANK BITS ON RELATIVE ADDRESS. 

;SAVE KIPAR2. 

-.MAKE SURE HI BITS ARE INIT. 

;SHIFT IT 6 PLACES. 



;MAKE LAST ADR PHYSICAL. 
;G0 TO UPDATE POINTERS. 



;RESTORE THE STACK POINTER 

; LAST ADDRESS OF 4K BANK 

-.FIRST ADDRESS OF NEXT BANK. 

; CHECK FOR MEM MGMT 

; BRANCH IF NO MEM MGMT 

;UPDATE THIF-D PAR 

;POINT TO START OF THIRD PAR 

-.UPDATE LO BANK POINTER. 

;UPDATE HI BANK POINTER 

; BRANCH IF MORE MEMORY TO MAP. 

;EXIT WHEN DONE. 



:■) 



;UPDATE MAP POINTER 

; BRANCH IF NOT YET DONE 

C ; RESET TIMEOUT VECTOR 
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1005 


003554 


0C4767 


014632 




JSR 


PC, 


TYPMAP 


1006 


003560 


004567 


017726 




JSR 


R5, 


SPRINT 


1007 


C03564 


0C12O1 






.WORD 


SCRLF 




1008 


003566 


01 1067 


175742 




MOV 


(RO), 


SAVTST 


1009 


003572 


01 1 167 


175740 




MOV 


(R1), 


SAVTST+2 


1010 


003576 


01 1000 






MOV 


(RO), 


SO 


1011 


003600 


042700 


177760 




BIG 


#177760 


, RO 


1012 


003604 


020027 


000017 




CMP 


RO,' 


#17 


1013 


003610 


001530 






BEO 


GMPR 




1014 


003612 


004567 


017674 




JSR 


R5, 


SPRINT 


1015 


003616 


025524 






.WORD 


INSUFF 




1016 
















1017 


003620 


000000 


6$; 


HALT 






1018 
















1019 








; *" 




********* 




1020 








* 


SPECIAL ROUTINE TO 


TYPE OUT 


1021 








* 


DATI, DATIP, DATO, 


AND DATO 


1022 








■ mi 


****** k************ 


********* 


1023 


003622 


012706 


001100 TIMQUT: MOV 


#STACK, 


SP 


1024 


003626 


005067 


174754 




CLR 


MMAVA 




1025 


003632 


032777 


010000 175300 




BIT 


#SW12, 


®SWR 


1026 


003640 


00101 1 






BNE 


1$ 




1027 


003642 


012737 


003664 000004 




MOV 


#1$, 


$#ERRVEC 


1028 


003650 


0050J7 


177572 




CLR 


d>#SRO 




1029 


003654 


004767 


010420 




JSR 


PC, 


MMINIT 


1030 


003660 


005267 


174722 




INC 


MMAVA 




1031 


003664 






5: 








1032 


003664 


004567 


017622 




JL.? 


R5 f 


SPRINT 


1033 


003670 


025437 






.WORD 


BYTMES 




1034 
















1035 


003672 


0' 5000 






CLR 


RO 




1036 


003674 


005002 






CLR 


R2 




1037 


003576 


012737 


003742 000004 




MOV 


#20$, 


®>#ERRVEC 


1038 


003704 


105712 




OS 


TSTB 


(R2) 




1039 


003706 


032702 


000001 




BIT 


#BITO, 


R2 


1040 


003712 


001001 






BNE 


11$ 




1041 


003714 


01 1212 






MOV 


(R2), 


(R2) 


1042 


003716 


151212 




1$ 


BISB 


(R2), 


•(R2) 


1043 


003720 


005700 






TST 


RO 




1044 


003722 


001023 






BNE 


30$ 




1045 


003724 


004567 


017562 




JSR 


R5, 


SPRINT 


1046 


003730 


025507 






.WORD 


FROM 




1047 
















1048 


003732 


01 0246 






MOV 


R2, 


-(SP) 


i049 


003734 


004767 


021212 




JSR 


PC, 


STYPAD 


1050 


003740 


000413 






BR 


29$ 




1051 








* 


TIME OUTS 


COME HERE 




1052 


003742 


022626 


20$ 


CMP 


(SP)+, 


*(SP)+ 


1053 


003744 


005700 






TST 


RO 




1054 


003746 


00141 1 






BEQ 


30$ 




1055 


003750 


004567 


017536 




JSR 


R5, 


SPRINT 


1056 


003754 


025517 






.WORD 


TO 




1057 
















1058 


003756 


005302 






DEC 


R2 




1059 


003760 


01 0246 






MOV 


R2, 


"(SP) 


1060 


003762 


004767 


021164 




JSR 


PC, 


STYPAD 



;GQ TYPE THE MAP. 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 
;ADDRESS OF MESSAGE TO BE TYPED 
;SET UP TEST MAP. . . LO 64K. 

; . . .HI 64K. 
;GET LOW MEM MAP 
;MASK ALL BUT BOTTOM 4 BANKS 
;CHECK THAT BOTTOM 1 6K IS ALL THERE! 
;BRANCH IF BOTTOM 16K EXISTS 
;G0 PRINT OUT THE FOLLOWING MESSAGE. 
5ADDRESS OF MESSAGE TO BE TYPED 
; "FIRST 16K OF MEMORY NOT ALL THEREl" 
; FATAL ERROP HALT. . . 

[MEMORY IS NOT CONFIGURED TO RUN THIS PROGRAM. 
********************************* 
ALL UNIBUS ADDRESSES WHICH RESPOND TO 



SET UP THE STACK POINTER. 

CLEAR MEM MGMT AVAILABLE FLAG. 

CHECK IF MEM MGMT TO BE INHIBITED. 

BR IF NO MEM MGMT. 

; SET TIMEOUT FOR MEM MGMT CHECK. 

CHECK FOR MEM MGMT... TIMES OUT IF NONE. 

INI T ALL MEM MGMT REGISTERS. 

SET MEM MGMT AVAILABLE FLAG. 

GO PRINT OUT THE FOLLOWING MESSAGE. 

ADDRESS OF MESSAGE TO BE TYPED 

"BYTE MEMORY MAP:" 

SET UP TYPE OUT FLAG. 

SET ADDRESS POINTER TO ZERO. 

;SET TIME OUT VEC TO SERVICE NON-EX MEM. 

DO DATI ONLY. 

CHECK FOR WORD ADDRESS. 

BR IF ODD BYTE ADDRESS. 

DO DATI, DATO... NOP FOR READ ONLY MAP. 

DO DATI, DATIP, DATOB. . . NOP FOR READ ONLY MAP. 

CHECK FOR PREVIOUS TYPOUT. 

BR IF ALREADY TYPED "FROM". 

GO PRINT OUT THE FOLLOWING MESSAGE. 

ADDRESS OF MESSAGE TO BE TYPED 

"FROM" 

PUT THE DATA ON THE STACK. 

DETERMINE THE PHYSICAL ADDRESS AND TYPE IT. 

GO TO ADDRESS POINTER UPDATE. 

POP TWO OFF STACK. 

CHECK FOR PREVIOUS TYPOUT. 

BR IF ALREADY TYPED "TO". 

GO PRINT OUT THE FOLLOWING MESSAGE. 

ADDRESS OF MESSAGE TO BE TYPED 
; "TO" 

BACK UP ONE BYTE. 

PUT THE DATA ON THE STACK. 
DETERMINE THE PHYSICAL ADDRESS AND TYPE IT. 



CZQMCFO 0-124K V.EMORY EXERCISER, 1 6K VER MACY11 30A(1052) 20-FEB-78 07:56 PAGE 23 
CZQMCF.P11 14-FEB-78 08:19 GET VALUE r'OR SOFTWARE SWITCH REGISTER 



1061 


003766 


0C5202 




1062 


003770 


005100 




1063 


003772 


005202 




1064 


003774 


0C14T.3 




1065 


003776 


032702 


017777 


1066 


004002 


001340 




1067 


004004 


005767 


174576 


1068 


004010 


001735 




1069 


004012 


022737 


007600 172346 


1070 


004020 


00141 1 




1071 


004022 


012702 


060000 


1072 


004026 


Oi 3737 


172346 172344 


1073 


004034 


062737 


000200 172346 


1074 


004042 


CC0720 




1075 


004044 


005700 




1076 


004046 


0014C7 




1077 


004050 


004567 


017436 


1078 


004054 ' 


025517 




1079 








1080 


004056 


005302 




1081 


004060 


Oi 0246 




1082 


004062 


004767 


021064 


1083 


004066 


000000 




1084 








1085 


004070 


000654 




1086 








1087 








1088 








1089 








1090 








1091 








1092 








1093 


004072 


0127C4 


002276 


1094 


004076 


032777 


0001T0 175034 


1095 


004104 


001036 




1096 


004106 


012703 


002076 


1097 


0041 12 


012737 


004134 000004 


1093 


004120 


042713 


000001 


1099 


004124 


005773 


000000 


1100 








1 101 


004130 


012324 




1 102 


004132 


000403 




1103 








1 104 


004134 


022626 




1 105 


004136 


052723 


000001 


1 106 


004 142 


0C5023 




1 107 


004144 


005023 




1 108 


004146 


0C5023 




1 109 


004150 


020327 


002276 


1110 


004154 


1C3761 




1111 


004156 


005014 




1112 


004160 


012737 


025114 000004 


1113 


004166 


005767 


176104 


1 1 14 


0041 72 


001006 




1115 


004174 


004567 


017312 


1 1 16 


004200 


025605 





29$: 
30$: 



INC 

COM 

INC 

BEQ 

BIT 

BNE 

TST 

BF1 

CMP 

BEQ 

MOV 

MOV 

ADD 

BR 

TST 

BEQ 

JSR 

.WORD 

DEC 
MOV 
JSR 
HALT 

BR 



;RESET ADDRESS POINTER. 

;RESET PREVIOUS TYPOUT FLAG. 

;UPDATE ADDRESS POINTER TO NEXT BYTE. 

;EXIT IF ZEPO REACHED. 

; CHECK FOR 4K BANK BOUNDRY. 

;BR IF MORE THIS 4K BANK. 

; CHECK IF MEM MGMT IS AVAILABLE. 

;BR IF NO MEM MGMT. 
©AKIPAR3 ;CHECK FOR END OF LAST 4K BANK. 

;EXIT WHEN ALL DONE. 
#60000, R2 ;RESET VIRTUAL ADDRESS POINTER. 
@#KIPAR3,@#KIPAR2 ;SAVE MEM MGMT REG FOR TYPEOUT. 
#20P, @#KIPAR3 JUPDATE MEM MGMT REG 2 TO NEXT 4K BANK. 

;BR BACK TO DO NEXT BANK. 

;CHECK PREVIOUS TYPE FLAG BEFORE EXIT. 

;BR TO EXIT IF TYPING ALL DONE. 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 

jADDRESS OF MESSAGE TO BE TYPED 

;"T0" 

;BACK ADDRESS POINTER UP ONE BYTE. 

;PUT THE DATA ON THE STACK. 

DETERMINE THE PHYSICAL ADDRESS AND TYPE IT. 
THIS ROUTINE IS FOR DEBUG USE ONLY. 
;* TO RUN THE MAIN PROGRAM RESTART AT 200 OR 204. 
TIMQUT ; LOOP BACK AND DO AGAIN UPON CONTINUE. 



31$ 

#MASK4K,R2 

10$ 

MMAVA 

10$ 

#7600, 

31$ 



10$ 

RO 

32$ 

R5, 

TO 



R2 
R2, 



$PRINT 



-(SP) 
$TYPAD 



.SBTTL MAP PARITY REGISTERS 

SEARCH FOK PARITY REGISTERS PRESENT AND TYPE ADDRESSES OF THOSE FOUND 
THAT ARE F NOTIONAL AND HAVE CORRESPONDING PARITY MEMORY 



#MPRX, 

#SW06, 

GMPRD 

#MPRO, 

#GMPRB, 

#1 , 

@>(R3) 

EXIST, 
(R3)+, 
GMPRC 
TIMEOUT COMES HERE 



R : MOV 

BIT 

BNE 

MOV 

MOV 
RA: BIC 

TST 
IF IT DOESN' 

MOV 



CMP 
BIS 
CLR 
CLR 
CLR 
CMP 
BLO 
CLR 
MOV 
TSi 
BNE 
JSR 

.wo:-D 



(SP)- 

#1 , 

(R3) + 

(R3) + 

(R3) + 

R3, 

GMPRA 

(R4) 

#ERRTRP, 

MPRX 

MPAMEM 

R5, 

MTR 



R4 ;SET UP POINTER TO PARITY REG EXIST TABLE. 
0SWR ;CHECK FOR INHIBIT PARITY SWITCH. 

;BR IF INHIBIT PARITY. 
R3 ;SET UP TABLE POINTER 
(BMERRVEC ;SET UP TIMEOUT TRAP SERVICE 
(R3) ;CLEAR FLAG BIT IN TABLE 

;DOES THIS MEMORY PARITY REGISTER EXIST. 
A TIMEOUT TRAP WILL GO TO "GMPRB" . 
(R4)+ ;SAVE IT IN THE PARITY REG EXIST TABLE. 

;SKIP TIMEOUT SERVICE CODE 

(SP)+ ;RESTORE STACK POINTER 

(R3)+ ;SET FLAG TO INDICATE REGISTER NOT PRESENT 

;CLEAR THE MAP. , . LO 64K. 

; . . .HI 64K. 

; . . .AND THE MASK. 
#MPRX ;HAVE WE CHECKED ALL REGISTERS? 

;N0 - GO BACK TO CHECK NEXT ONE 

;SET TERMINATOR IN PARITY REG EXIST TABL€. 
g»#ERRVEC ; RESTORE TRAPCATCHER 

;ANY PARITY REGISTERS PRESENT? 
;YES - GO TEST CONTROLS PRESENT 
SPRINT ;G0 PRINT OUT THE FOLLOWING MESSAGE. 

; ADDRESS OF MESSAGE TO BE TYPED 
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1117 
11 18 
1 119 
1120 



004202 
004204 



005014 
0C0167 ' 



CLR 
JMP 



(R4) 
MANUAL 



;"N0 MEMORY PARITY REGISTERS FOUND" 
;MAKE SURE TABLE IS CLEAR, 

;AND SKIP ALL CONTROLS TESTING 
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1121 










1122 










1123 










1124 










1125 










1126 










1127 










1128 










1129 










1130 










1131 










1132 










1133 


004210 


004767 


014054 




1134 


004214 


012767 


000001 


175322 


1135 


004222 


0C5067 


175320 




1136 


004226 


01 2702 


014000 




1137 


004232 


005767 


174350 




1138 


004236 


001404 






1139 


004240 


012702 


054Q00 




1 140 


004244 


Q04767 


O10O30 




1141 










1142 










1143 










1 144 










1145 










1146 










1147 










1148 


004250 


005067 


175264 




1149 


004254 


005067 


175262 




1150 


004260 


012703 


002076 




1151 


004264 


0.-.2713 


000001 




1152 


004270 


001052 






1153 


004272 


013773 


001§12 


oooooo 


1154 










1155 


004300 


01 1212 






1156 


004302 


0C5712 






1157 


004304 


043773 


001612 


oooooo 


1158 


004312 


005773 


OQOOOO 




1159 










1160 










1161 


004316 


100014 






1162 


004320 


032773 


007740 


oooooo 


1163 


004326 


001404 






1164 


004330 


012763 


070032 


QpOC- 6 


1165 


004336 


0C0413 






1166 


004340 


012763 


077772 


000006 


1167 


004346 


'000407 






1168 


004350 


032773 


007740 


pooooo 


1169 


004356 


Q01417 






1170 


004360 


012763 


070000 


000006 


1171 


004366 


056763 


175152 


000002 


1172 


004374 


056763 


175146 


000004 


1173 


004402 


056767 


175136 


175130 


1174 


004410 


056767 


1751*2 


175124 


1175 


004416 


062703 


000010 




1176 


004422 


020327 


002276 





16K VER MACY11 30A(1052) 
MAP PAR|TY MEMORY 

.SBTTL MAP PARITY MEMORY 

MAP CORRESPONDENCE BETWEEN PARITY REGISTERS AND MEMORY, AND TYPE RESULTS 
NOTE THAT IF PARITY MEMORY IS NOT LOCATED CORRECTLY THAT IT IS IN ALL 
PROBABILITY DUE TO ONE OF THE FOLLOWING FAILURES: 

- SETTING WRITE WRONG PARITY DIDN'T CAUSE BAD PARITY TO BE WRITTEN 

- PARITY GENERATE OR DETECT LOGIC FAILED 
* PARITY ERROR BIT FAILED TO SET 

- PARITY BITS IN MEMORY LOCATION FAILED 

- I.E. BIT STUCK AT GOOD PARITY VALUE 



INITIALIZE ALL PARITY REGISTERS 

INITIALIZE 4K POINTER 

CLEAR HI 64K POINTER 

SET ADR POINTER TO 14000. 

CHECK FOR MEM MGMT 

BRANCH IF NO MEM MGMT 

SET ADR POINTER TO PAR2 

SET UP ALL MEMORY MGMT REGISTERS. 



iSET WRITE WRONG PARITY IN ALL REGISTERS PRESENT 

;* THEN WRITE TEST LOCATION VIA DATO & READ TEST LOCATION VIA DATI 

!* THEN CLEAR WRITE WRONG PARITY IN ALL REGISTERS. 



MPAMEM: JSR 


PC, 


CLRPAR 


MOV 


#1 . 


BITPT 


CLR 


BITPT+2 




MOV 


#14000, 


R2 


TST 


MMAVA 




BEO 


MAPRB 




MOV 


#54000, 


R2 


JSR 


PC, 


MMINIT 



CLrf 


PMEMAP 




CLR 


PMEMAP+2 


MOV 


#MPRO, 


R3 


BIT 


#1 , 


(R3) 


BNE 


3S 




MOV 


@#WWP, 


P(R3) 


MOV 


(R2), 


(Ri) 


TST 


(R2) 




BIC 


@#WWP, 


@(R3) 


TST 


@(R3) 




BPL 


6$ 




BIT 


#7740, 


0(R3) 


BEO 


5$ 




MOV 


#70032, 


6(R3) 


BR 


7$ 




MOV 


#77772, 


6(R3) 


BR 


7S 




BIT 


#7740, 


»(R3) 


BEO 


3S 




MOV 


#70000, 


6(R3) 


BIS 


BITPT, 


2(R3) 


BIS 


BITPT+2 


,4<R3) 


BIS 


BITPT, 


PMEMAP 


BIS 


BITPT+2 


, PMEMAP+2 


ADD 


#10, 


R3 


CMP 


R3, 


rfMPRX 



ICLEAR THE PARITY MEMORY MAP 

[INITIALIZE TABLE ADDRESS 
;IS THIS REGISTER PRESENT? 
!N0 - GET THE NEXT ONE 
;YES - SET WRITE WRONG PARITY 

;ANO CLEAR REST OF REGISTER 
;WRITE WRONG PARITY 
;READ WRONG PARITY 
:CLEAR WRITE WRONG PARITY 
[OTHERWISE, CHECK TO SEE IF THIS 

;CONTROL REGISTER GOT A PARITY 

; ERROR 
;BRANCH IF IT DIDN'T AND CHECK 
;IS IT A CORE PAR. REG. 
: BRANCH IF NOT. 
;IF IT IS SET UP MASK 
;AND BRANCH TO SET BITS. 
: IF MOS SET UP MASK 
:AND BRANCH TO SET BIT. 
;IF ANY BITS ARE SET 
:THEN CSR IS MS1 1 -K . 
IF MS1 1-K SET MASK. 
SET FLAG IN MAP FOR THIS PARITY REGISTER 

SET FLAG IN PARITY MAP 

STEP UP TO NEXT REGISTER 
ARE WE DONE WITH TABLE? 



, II 
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J|||||| 5 



1177 
1178 
1 179 
1 160 
1181 
1182 
1183 
1 184 
1185 
1186 
1 187 
1 188 
1169 
1190 
1 191 
1 192 
1 193 
1 194 
1195 
1196 
1 197 
1 198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
121 1 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 



004426 
004430 
004432 
CD443S 
004.540 
C04446 
004452 
004456 
004460 
004466 
004470 
0044 76 
004500 
004506 
004510 
004516 
004524 
004526 
004534 
004536 
0C4540 
004546 
004550 
004554 
00456C 



004562 
004566 
004572 

004574 

004600 
004604 
004606 
004614 
004616 
004622 

004624 
004626 
004634 
004636 
004642 

004644 
004546 
004554 
004656 
004662 

004664 



1C3716 
01 1212 
0C5767 
C014- I 
Co2737 
006367 
006167 
1C0441 
023727 
OC 1 013 
C"2737 
0C1004 
052737 
001400 
012737 
036767 
001255 
C26767 
001251 
000740 
036767 
001244 
0627C2 
106367 
100367 



004767 
004567 
025462 

012703 
032713 
001046 
022763 
001004 
004567 
026123 

000417 
022763 
001004 
004567 
026142 

000407 
022763 
001003 
004567 
026160 



000200 
175072 
175070 

172344 

000003 

000003 

020004 
175022 



172344 4$; 

001Q00 
002260 
002270 



001612 
175000 



13$: 
12$: 



175014 174772 



175000 174756 11$: 



020000 
174764 



BIO 

MOV 

TST 

BEO 

ADD 

ASL 

ROL 

Br. . 

CMP 

BNE 

BIT 

BNE 

BIT 

BEQ 

MOV 

BIT 

BNE 

BIT 

BNE 

BR 

BIT 

BNE 

ADD 

ASLB 

BPL 



2$ 



(R2) 



(R2). 

MMAVA 

10$ 

#200, $#KIPAR2 

BITPT 

BITPT+2 

TMAP- 

@#KIPAR2,#1000 

12S 

#3,@#MPR14+2 

13$ 

#3,S»»MPRl5+2 

13$ 

#20004, @#W.:P 

BITPT, MEMMAP 

1$ 

BITPT+2, MEMMAP+2 

1$ 

4$ 

BITPT, MEMMAP 

1$ 

#20000; R2 

BITPT 

11$ 



;GQ BACK TO CHECK FOR ANY MORE! 
;CLEAR BAD PARITY 
; CHECK FOR MEM MGMT 
;BR IF NO MEM MGMT 

IUPDATE PAP TO NEXT 4K BANK. 

UPDATE BANK POINTER... LO 64K. 

. . .HI 64K. 

BR IF ALL DONE. 

THIS CODE TESTS IF MS11-K IS 

PRESENT AND IF IT IS I SET 

THE BIT TO DISABLE ECC IN 

THE LOCATION WWP THAT IS 

USED AS THE COMMAND TO 

WRITE WRONG PARITY. 

CHECK IF BANK EXISTS... LO 64K. 

BR IF BANK EXISTS. 

; . . .HI 64K. 

BR IF BANK EXISTS. 

BR IF BANK DOESN'T EXIST. 

CHECK IF BANK EXISTS. 

BR IF BANK EXISTS. 

UPDATE ADDPESS POINTER TO NEXT BANK. 

MOVE POINTER TO NEXT BANK. 

BR IF MORE TO LOOK FOR. 



ROUTINE T TYPE MAP OF WHERE PARITY MEMORY IS PRESENT 
AND WHICH CONTROL REGISTERS CONTROL WHICH MEMORY 



013502 
016720 



002076 
000001 



070032 
016670 



077772 
016650 



070000 
016630 



000006 3S: 



000006 4$: 



JSR 


PC, 


CLRPAR ; 


JSR 


R5, 


SPRINT ; 


.WORD 


MTMAP 


; 


MOV 


#MPRO, 


R3 ; 


BIT 


#BITO, 


IR3) ; 


BNE 


2$ 




CMP 


#70032, 


6(R3) 


BNE 


3$ 




JSR 


R5, 


SPRINT ; 


.WORD 


MX3 




BR 


5$ 




CMP 


#77772, 


6(R3) 


BNE 


4$ 




JSR 


R5, 


SPRINT ; 


.WORD 


MX4 




BR 


5$ 




CMP 


#70000, 


6(R3) 


BNF 


5$ 




JSR 


R5, 


SPRINT ; 


.WORD 


MX5 





INITIALIZE ALL PARITY REGISTERS PRESENT 

GO PRINT OUT THE FOLLOWING MESSAGE. 

ADDRESS OF MESSAGE TO BE TYPED 

"PARITY MEMORY MAP: " 

INITIALIZE TABLE POINTER 

CHECK IF THIS REGISTER IS PRESENT. 

BR IF NOT PRESENT. 



GO PRINT OUT THE FOLLOWING MESSAGE, 
ADDRESS OF MESSAGE TO BE TYPED 
"CORE PARITY" 



GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
"MOS PARITY" 



GO PRINT OUT THE FOLLOWING MESSAGE, 
ADDRESS OF MESSAGE TO BE TYPED 
"MS11-K CSR" 
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1233 


004664 


004567 


016622 




1234 


004670 


026071 






1235 










1236 


004672 


01 1346 






1237 










1238 










1239 


004574 


013746 


177776 




1240 


004700 


004767 


020004 




1241 


004704 


004567 


016602 




1242 


004710 


0261 10 






1243 










1244 


004712 


010300 






1245 


004714 


005720 






1245 


004716 


004767 


0134'. J 




1247 


004722 


062703 


000010 




1248 


004726 


020327 


002276 




1249 


004732 


103722 






1250 


004734 


004567 


016552 




1251 


004740 


001201 






1252 










1253 


004742 


022737 


070000 


002264 


1254 


004750 


001006 






1255 


004752 


043727 


002260 


001540 


1256 


004760 


043737 


002262 


001540 


1257 


004766 


022737 


070000 


002274 


1258 


004774 


001031 






1259 


004776 


043737 


002270 


001540 


1260 


005004 


043737 


002272 


001542 


1261 


005012 


012705 


002276 




1262 


005016 


021537 


002256 




1263 


005022 


001004 






1264 


005024 


005015 






1265 


005026 


052737 


000001 


002256 


1266 


005034 


022537 


002266 




1267 


005040 


001366 






1268 


005042 


005045 






1269 


005044 


052757 


000001 


002266 


1270 


005052 


0C4567 


016434 




1271 


005056 


026176 






1272 


005060 


005737 


002276 




1273 


005064 


001002 






1274 


005066 


000167 


000274 




1275 










1276 










1277 










1278 










1279 










1280 










1281 










1282 










1283 


005072 


0- 2703 


002076 




1284 


005076 


01 1302 






1285 


005100 


062703 


000010 




1286 


0051 04 


032702 


000001 




1287 


0051 10 


001372 






1288 


0051 12 


020327 


002276 





R5, SPRINT ;G0 PRINT OUT THE FOLLOWING MESSAGE. 

MX1 ;ADDRESS OF MESSAGE TO BE TYPED 

; "REGISTER AT" 

(R3),-(SP) ;;SAVE (R3) FOR TYPEOUT 
THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE STYPOC ROUTINE 
WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC* 



JSR 
.WORD 



MOV 



MOV 
JSR 
JSR 
,WORD 

MOV 
TST 
JSR 
ADD 
CMP 
BLO 
JSR 
SCRLr 

CMP 

BNE 

BIC 

BIC 

CMP 

BNE 

BIC 

BIC 

MOV 

CMP 

BNE 

CLP 

BIS 

CMP 

BNE 

CLR 

BIS 

JST 

.WORD 

TST 

BNE 

JMP 



@#PSW, 



R5, 
MX2 



R3, 
(R0) + 



#10, 



;PUT THE PROCESSOR STATUS ON THE STACK 

;G0 TO THE SUBROUTINE 

;G0 PRINT OUT THE FOLLOWING MESSAGE, 

;ADDRESS OF MESSAGE TO BE TYPED 

; "CONTROLS" 

;SET UP RO FOR TYPMAP ROUTINE. 

IUPDATE POINTER TO MAP. 

;G0 TYPE THE MEMORY COVERED BY THIS REGISTER. 

-.UPDATE TO NEXT REGISTER IN TABLE. 

;ARE WE ALL DONE WITH TABLE? 

; BRANCH IF MORE REGISTERS 

;THE REASON I'M OUTPUTTING THIS CRLF 

;IS TO GIVE THE PRINTER ENOUGH TIME TO 

; FINISH PRINTING 'HE MEMORY MAP BEFORE THE RESET OCCURS. 
#70000, @#MPR14+6 ;D0 WE HAVE MS11-K AT THIS ADDRESS 
7$ ;IF NO BRANCH 

@#MPR14+2*.#PMEMAP ;IF YES THEN CLEAR THE BITS IN 
<P#MPR14-l-4,§>*PMEMAP ; THE PARITY MEMORY MAP. 
#70000, <gs.#MPR15+6 ; DO WE HAVE A MS11-K 
9$ ;IF NO GO TO TESTS NOW. 

@#MPR15+2,@#PMEMAP ;IF YES I AM GOING TO 
@#MPR15+4,lp#PMEMAP+2 ;CLEAR THE PARITY INDICATORS 



1$ 



-(SP) 

STYPOC 

SPRINT 



RO 

TYPMAP 



#MPRX 



SPRINT 



#MPRX, R5 

(R5),@#MPR14 

8$ 

(R5) 

#1 ,@>#MPR14 

(R5)+, e«MPR 

6$ 

-<R5) 



■*1 , 

R5, 

MX6 

@#MPRX 

CTRLS 

MANUAL 



SMMPR15 
SPRINT 



;FOR THAT PORTION OF MEMORY. 
;SEARCH FOR THIS MS11-K CSR IN 
;AND IF ITS THERE DELETE IT 



;SEARCH FOR MS11-K CSR IN 

;THE AVAILABILITY TABLE, 

;AND CLEAR ITS ADDRESS FROM THE TABLE 

;SET BITO IN ADDRESS IN CSR TABLE 

; OUTPUT MESSAGE TO RUN MS11-K TEST. 

;ARE THERE ANY PARITY REGISTERS TO TEST? 
;IF SO TE5T THE BITS IN THE REGISTERS, 
;IF NO JUMP OVER REGISTER TESTS. 



.SBTTL TEST PARITY REGISTERS 



SHOW THAT BITS 0. 2, 5 - 
CAN BE SET AND CLEARED. 
THIS .3 A ONCE ONLY TEST 



CTRL- : 


MOV 


#MPRO, 


R3 


15: 


MOV 


(R3), 


R2 




ADD 


#10, 


R3 




BIT 


#1 , 


R2 




BNE 


1$ 






CMP 


R3, 


#M 



11, AND 15 OF EACH PARITY REGISTER PRESENT 



;LOAD INITIAL TABLE ADDRESS FOR A POINTER 

; LOAD R2 WITH ADDRESS OF THIS PARITY REGISTER 

;UPDATE POINTER TO NEXT PAR. REG. ADD. 

;IS THIS REGISTER BEING USED? 

;G0 TO NEXT IF NOT 



;ARE WE AT END OF TABLE 



C20MCF0 


0-1 24K MEMORY 


EXERCI 


C2QMCF. 


P11 14-FEB-78 


08:19 


1289 


005116 


003055 




1290 


005120 


0C5763 


177776 


1291 


005124 


0C1764 




1292 


005126 


016367 


177776 


1293 


005134 


01 2700 


000001 


1294 


0Q5140 


005012 




1295 


005142 


01 1201 




1296 


005144 


046701 


174346 


1297 


0C5150 


CC1405 




1298 


005152 


CC4767 


013134 


1299 


005156 


004767 


014456 


1300 


005162 


0C00Q1 




1301 


005164 


030067 


174326 


1302 


005170 


C01025 




1303 


005172 


01 0012 




1304 


005174 


01 1201 




1305 


005176 


0C5012 




1306 


0052GO 


04 67C1 


174312 


1307 


905204 


020001 




130a 


005206 


001405 




1309 


005210 


004767 


013126 


1310 


005214 


004767 


014420 


131 1 


005220 


0Q00C1 




1312 


005222 






1313 


005222 


01 1201 




1314 


005224 


046701 


174266 


1315 


005230 


001405 




1316 


005232 


0C4767 


013054 


1317 


005236 


004767 


014376 


1318 


005242 


000001 




1319 


005244 


3300 




1320 


005246 


103346 




1321 


Q05250 


000712 




1322 








1323 








1324 








1325 








1326 








1327 








1328 


005252 


012704 


002076 


1329 


G05256 


010403 




1330 


005260 


062704 


000010 


1331 


005264 


032713 


000001 


1332 


005270 


001372 




1333 


005272 


012773 


177777 


1334 


005300 


022704 


002276 


1335 


0C5304 


002764 




1336 


005305 


0000C5 




1337 


005310 


012703 


002076 


1338 


005314 


0i 1302 




1339 


005316 


062703 


000010 


1340 


005322 


032702 


000001 


1341 


005326 


001372 




1342 


005330 


022703 


0022/6 


1343 


005334 


002014 




1344 


005336 


01 1201 





16K VEK MACY1 1 30A( 1052) 
TEST PARITY REGISTERS 



07:56 PAGE 28 



RESCHK 

-2(R3) 

1$ 

~2(R3), 

*'1 , 

(R2) 

(R2), 

RESRVD, 



8GT 

TST 

BEQ 

MCW 

MOV 

CLR 

MOV 

BIC 

BEQ 

JSR 

JSR 

.WCVj 

BIT 

BNE 

MOV 

MOV 

CLR 

BIO 

CMP 

BEO 

JSR 

JSR 

.WORD 

MOV 
BIC 
BEO 

JSR 

.WORD 

ASL 

BCC 

BR 



SHOW THAT RESET CLEARS BITS 
THIS IS A ONCE ONLY TEST. 



1 

RO, 

3$ 

RO, 

(R2), 

(R2) 

RESRVD, 

RO, 

66S 

PC, 

PC, 



SPRNT 
SERROR 



RESRVD 
(R2) 



SPRNTO 
SERROR 



(R2), 
RESRVD, 



;G0 TO 
;TEST M 
; IF 
;GET MA 
; LOAD R 
; INI T IA 
;READ T 
;CLEAR 
; CHECK 
;SET UP 

ER 
;ERROK 
;IS THI 
; YES 
;NQ - S 
;READ 8 
;CLEAR 
;CLEAR 
;COMPAR 
; BRANCH 
;SET UP 

ER 
; ERROR 



NEXT TEST IF YES 

ASK FOR PARITY REGISTER 

DO NOT TEST 
5K FOR REGISTER WE ARE WORKING ON 

WITH VALUE OF 1ST BIT TESTED 
LI2E THE PARITY REGISTER 
HE CONTENTS OF THE PARITY REGISTER 
BITS WHICH ARE RESERVED 
OTHER BITS - BRANCH IF OK 

VALUES FOR ERROR PRINTING. 
ROR *** (GO TYPE A MESSAGE) 
TYPE CODE. 

BIT RESERVED? 
DON'T TEST IT 

T THIS BIT IN THE PARITY REGISTER 

SAVE CONTENTS OF THE PARITY REGISTER 
THE PARITY REGISTER 
BIT LOCATIONS THAT ARE RESERVED 

THE CHECK WORD WITH THE DATA READ. 

OVER ERROR CALL IF GOOD DATA. 

VALUES FOR ERROR PRINTING. 
ROR *** (GO TYPE A MESSAGE) 
TYPE CODE. 



SPRNT 
SERROR 



RESCHK: 


MOV 


#MPRO, 


1S: 


MOV 


R4, 




ADD 


#10, 


BIT 


#1 , 


(R3) 




BNE 


1$ 




MOV 


#-1 , 




CMP 


0MPRX.R4 




BLT 


1S 




RESET 






MOV 


6MPR0, 


2S: 


MOV 


(R3), 




ADD 


#10, 




BIT 


Ml , 




BNE 


2$ 




CMP 


tfMPRX, 




BGE 


MANUAL 




MOV 


(R2), 



EAD THE CONTENTS OF THE PARITY REGISTER 
;CLEAR BITS WHICH ARE RESERVED 
;CHECK OTHER BITS - BRANCH IF OK 

SET UP VALUES FOR ERROR PRINTING. 

*** ERROR v** (GO TYPE A MESSAGE) 
;ERROR TYPE CODE. 

;RCTATE TO GET NEXT BIT TO BE TESTED 
;BRANCH IF NOT DONE WITH ALL BITS 
;AFTER TESTING FOR BIT 15 GO GET NEXT REGISTER, 



0,2, AND 15 OF EACH PARITY REGISTER PRESENT. 



;LOAD INITIAL TABLE ADDRESS FOR A POINTER 



»(R3) 



IS THIS REGISTER BEING USED 

; BRANCH IF NO 

;SET ALL BITS TO A 1 

;ARE WE AT THE END OF THE TABLE 

;IF YES THEN WE ARE READY TO TEST 

;RESET THE WORLD 
R3 ; LOAD INITIAL ADDRESS FOR POINTER 
R2 ;STORE PARITY REGISTER ADDRESS 
R3 
R2 



;GET CONTENTS OF REGISTER 



CZOMCFO 0-1 24K MEMCRY EXERCISER, 
C2QMCF.P11 14-FEB-78 08: 19 



16K VER MA~Y1 1 30A(1052) 
TEST PARITY REGISTERS 



1345 


005340 


OC5012 




1346 


005342 


0427C1 


077772 


1347 


005346 


OG5701 




1348 


005350 


0C14f 3 




1349 


005352 


004767 


012734 


1350 


005356 


004767 


014256 


1351 


005362 


000001 




1352 


005364 






1353 


005364 


000753 




1354 








1355 








1356 


005366 


Qi 2700 


000014 


1357 


005372 


01 2701 


001562 


1358 


005376 


C05021 




1359 


005400 


005300 




1360 


005402 


0C1375 




1361 


005404 


1Q5767 


174146 


1362 


005410 


001QC5 




1363 


005412 


016767 


173546 174154 


1364 


005420 


000167 


000402 



CLR 


(R2) 




BIC 


#77772, 


R1 


TST 


R1 




BEO 


65$ 




JSR 


PC, 


SPRNT 


JSR 


PC, 


SERROR 


.WORD 


1 





MANUAL: 


MOV 


#12., RO 




MOV 


*FSTADR,R1 


1$: 


CLR 


(R1) + 




DEC 


RO 




BNE 


1$ 




TSTB 


SELFLG 




BNE 


MANUL1 




MOV 


STMP2, LS 




JMP 


MANUL2 
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;CLEAR BITS NOT EFFECTED BY RESET 
;CHECK IF REST WERE CLEARED BY RESET 
; BRANCH OVEP ERROR CALL IF GOOD DATA. 
;SET UP VALUES FOR ERROR PRINTING. 
;*** ERROR *** (GO TYPE A MESSAGE) 
;ERROR TYPE CODE. 

; BRANCH BACK TO CHECK NEXT REGISTER 



;SET COUNTER TO CLEAR 12 WORDS. 

;STARTING AT FSTADR. 

-.CLEAR THE LOCATIONS. 

; COUNT. 

;BR IF MORE. 

; CHECK FOR SELECT PARAMETERS STARTUP. 

;BR IF PARAMETERS TO BE SELECTED. 

;SET UP VIRTUAL LAST ADDRESS. 

;SKIP PARAMETER SELECTION SECTION. 



CZQMCF3 0-124K MEMORY EXERCISER, 1 6K VER MACY1 1 30A(1052) 20-FF.3-78 07:56 PAGE 30 
CZQMCF.P11 14-FEB-78 08: 19 USER PARAMETER SELECTION SECTION 

13S5 .SBTTL USER PARAMETER SELECTION SECTION 

USER PARAMETER SELECTION SECTION IS ENTERED BY STARTING AT 204. 



1367 








1368 








1359 


005424 


01 2700 


000001 


1370 


005430 


0C5C01 




1371 


005432 


0C5002 




1372 


005434 


0C5003 




1373 


005436 


0C4567 


016050 


1374 


005442 


026311 




1375 








1376 








1377 








1378 


005444 


013745 


17777: 


1379 


005450 


0C4767 


015664 


1380 


005-154 


0-2716 


000001 


1381 


005460 


0C5067 


174C30 


1382 


005464 


GC5G67 


174046 


1383 


005470 


CC2702 


020000 


1384 


005474 


0055C3 




1385 


005476 


02C367 


016006 


1336 


005502 


103403 




1387 


005504 


10 1006 




1388 


005506 


020216 




1389 


005510 


101004 




1390 


005512 


0063C0 




1391 


005514 


CG5101 




1392 


005516 


U'0364 




1393 


00552C 


00 0507 




1394 


C05522 


030067 


173776 


1395 


005523 


001003 




1396 


0C5530 


030167 


173772 


1397 


005534 


0G1501 




1398 


005536 


016704 


015746 


1399 


005542 






1400 


005542 


004567 


015744 


1401 


005546 


026376 




1402 








1403 








1404 








1405 


005550 


Oi 3746 


177776 


1406 


005554 


004767 


015560 


1407 


005560 


005716 




1408 


005562 


0010 D 




1409 


005554 


005767 


015720 


1410 


005570 


001005 




141 1 


005572 


0-. 6716 


173366 


1412 


005576 


0>6767 


173364 015704 


1413 


005604 


012667 


173764 


1414 


005510 


020467 


015674 


1415 


005614 


1*1352 




1416 


005516 


103403 




1417 


005620 


021667 


173750 


1418 


005524 


101346 




1419 


005626 


0327-6 


017777 


1420 


005632 


001404 





MANUL1 : MOV *BIT0, RO 

CLR ' R1 

CLR R2 

CLR R3 

JSR R5, SPRINT 

.WORD FADMES 

;* THE NEXT TWO INSTRUCTIONS PR 
;* WIHTOUT USING A "TRAP" INSTR 

MOV 

JSR 

BIC 

CLR 

CLR 
1$: ADD 

ADC 

CMP 

BLO 

BHI 

CMP 

BHI 
2$: ASL 

ROL 

BPL 

BR 

BIT 

BNE 

BIT 

BEQ 

MOV 



(PrfPSW, 


-(SP) 


PC, 


SRDOCT 


*BITO, 


(SP) 


SAVTST 




SAVTST+2 


P20000, 


R2 


R3 




R3. 


SHIOCT 


2$ 




3S 




R2, 


(SP) 


3$ 





;SET UP BANK POINTER. 

; . . .HI 64K. 

;CLEAR ADDRESS POINTER. 

; . . .HI ADDRESS BITS. 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 

;ADDRESS OF MESSAGE TO BE TYPED 

;"FIRST ADDFESS:" 

OVIDE AN INTERFACE TO THE SRDOCT ROUTINE 

UCTION AS CALLED FOR BY **SYSMAC**. 

;PUT THE PROCESSOR STATUS ON THE STACK 

;30 TO THE SUBROUTINE 

;MAKE SURE ADDRESS IS ON A WORD BOUNDRY. 

; IN IT TEST MAP. . . LO 64K. 

; . . .HI 64K. 

iUPDATE ADDRESS POINTER TO NEXT BANK. 



4S: 
10$: 



SHIOCT, R4 



USR R5, SPRIN 
.WORD LADMES 

THE NEXT TWO INSTRUCTIONS 
WIHTOUT USING A "TRAP" INSTj 

MOV 

USR 

TST 

BNE 

TST 

BNE 

MOV 

M r - / 
: MOV 

CMP 

BHI 

BLO 

CMP 

BHI 

BIT 

BEQ 



(f-ffPbW, 


-(SP) 


PC, 


SRDOCT 


(SP) 




11$ 




SHIOCT 




11$ 




STMP2, 


(SP) 


STMP3, 


SHIOCT 


(SP)+, 


LSTADR 


R4, 


SHIOCT 


10$ 




12$ 




(SP), 


LSTADR 


I OS 




0MASK4K 


.(S-) 


13$ 





;CHECK HI ADDRESS BITS. 
;3R IF NOT HI ENOUGH YET. 
;BR IF PAST SELECTED ADDRESS. 
;CHECK THE LQ ADDRESS BITS. 
;BR IF PAST SELECTED ADDRESS. 
;UPDATE POINTER ... LO 64K. 
; . . .HI 64K. 

;5R BACK TO CHECK NEXT BANK. 
; BR IF OVERFLOW. 
;CHECK IF BANK EXISTS. 
;3R IF BANK EXISTS. 
2 ;CHECK HI 64K. 
; BR IF ADDRESS IN UN-MAPPED BANK. 
;SAVE FIRST ADR HI BITS. 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 

;ADDRESS OF MESSAGE TO BE TYPED 

; "LAST ADDRESS:" 
ROVIDE AN INTERFACE TO THE SRDOCT ROUTINE 
RUCTION AS CALLED FOR BY **SYSMAC**. 

; PUT THE PROCESSOR STATUS ON THE STACK 

;G0 TO THE SUBROUTINE 

;CHECK IF ADR SELECTED (DEFAULT). 

;BR IF NOT (DEFAULT) 

;CHECK HI BITS. 

;BR IF NOT (DEFAULT) . 

;SET UP DEFAULT LAST ADR. 

;GET THE DATA. 

;CHECK FOR LAST ADR BELOW FIRST ADR. 

;SB IF LAST BELOW FIRST. 

;BR IF LAST ABOVE FIRST. 

;CHECK FOR LAST BELOW FIRST. 

;BR IF LAST BELOW FIRST. 

;CHECK IF FIRST ADR ON BANK BOUNDRY. 

;BR IF ON BOUNDRY. 



;ZQMCFO 0-1 24K MEMORY EXERCISER, 1 6K VER MACYH 30A(1052) 20-FEB- 
;ZQMCF.P11 14-FE3-78 08:19 USER PARAMETER SELECTION SECTION 
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1421 
1422 
1423 
1424 

1425 
1425 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
14 5'3 
1454 
1455 
1456 
1^57 
1458 
1 459 
1460 
1461 



005534 
005640 
0C5E44 
005650 
005654 
005660 
005562 
005654 
005670 
005672 
005676 
CC5700 
005702 
005704 
005706 
005712 
005714 
005720 
005722 
005724 
005730 
005732 
C05735 
C05740 
005742 
005746 



0057 5 
0C576 



010067 
010167 

05 0067 
050167 
020367 
1C3404 
1C1C20 
C20267 
1 C 1 1 5 

06 27C2 
0C55C3 
C06300 
0C-61C1 
100415 
C30C67 
00 1354 
Co 01 67 
C01351 
000754 
030067 
00 1010 
02 0167 
00 1 005 
0C57„o 
004567 
026421 

000606 
01 0067 
010167 
C 5767 
CC14C4 



005770 0-^2716 



005774 
003000 
006004 
006004 
006010 



173730 
173726 
173664 
173662 
015630 



062716 
012667 



004567 
026456 



173612 
173606 

173574 
173570 



173624 
173622 
172620 

160000 
040000 
173556 



223: 
30S: 



MOV 

MOV 

BIS 

BIS 

CMP 

BLO 

BHI 

CMP 

BHI 

ADD 

ADC 

AS! 

ROL 

BMI 

BIT 

BNE 

BIT 

BN-". 

BR 

BIT 

BNE 

BIT 

BNE 

TST 

USR 



MCV 
MOV 
TST 
BEO 

BIC 
ADD 
MOV 



R3, 
15S 
16S 
R2, 
16S 
«20000, 



FADMAP 

FACMAP+2 

SAVTST 

SAVTST+2 

ShIOCT 



RO, 
13S 



20$ 
(SP) + 
R5, 



MEMMAP 
MEMMAP+2 

MEMMAP 
MEMMAP+2 



R1 , 

MMAVA 

22S 

* 160000, 

#40000, 

(SP)+, 



LADMAP 
LADMAP+2 



(SP) 
(SP; 

fs;adr 



.WORD CONST 



SET UP FIRST ADDRESS MAP. 

SET FLAG IN TEST MAP...LO 64K 

; . . .HI 64K. 

CHECK FOR PAST LAST ADR. 

BR IF BELOW LAST ADR. 

3R IF GONE PAST LAST ADR. 

CHECK FOR PAST LAST ADR. 

BR IF GONE PAST LAST ADR. 

UPDATE ADDPESS POINTER. 

. . .HI BITS. 

UPDA.'E BANK POINTER. ..LO 64K. 



. .HI 



64 K. 



ER IF OVERFLOW. 

CHECK IF THIS BANK EXISTS. 

BR IF BANK EXISTS. 

:CHECK IF THIS BANK EXISTS. 

BR IF BANK EXISTS. 

BR IF BANK DOESN'T EXIST. 

CHECK IF THIS BANK EXISTS. 

BR IF IT EXISTS. 

;CHECK IF THIS BANK EXISTS. 

BR IF IT EXISTS. 

ADJUST THE STACK. 

GO PRINT OUT THE FOLLOWING MESSAGE. 

ADDRESS OF MESSAGE TO BE TYPED 

"7ADDRESS IN UNMAPPED BANK?" 

LOOP BACK TO THE BEGINNING. 

SET UP MAP FOR LAST ADDRESS. 

CHECK FOR MEMORY MANAGEMENT. 

BR IF NO MEM MGMF. 

ADJUST FSTADR TO VITRUAL BANK 0. 

. . .TO VIRTUAL BANK 2. 

SAVE FISRT ADDRESS OFF THE STACK. 



THE NEXT TWO INSTRUCT 
WIHTOLT USING A "TRAP 



1462 


006C12 


013746 


177', 76 






MOV 


1463 


0050 15 


CC4767 


015316 






JSR 


14 64 


CC6022 


01 2667 


1735S2 






MOV 


1465 


006025 


CO 5757 


172554 




MANUL2: 


TST 


1466 


OCr 222 


CO 14:6 








BEO 


1467 


oo. .-.•:■ 3 4 


C--2767 


160000 


173532 




BIC 


1468 


6042 


062767 


0400C0 


173524 




ADD 


1469 


J 6 £ 


0G2 7 67 


000002 


173516 


31$: 


ADD 


1470 


C 6 5 6 


C-i27£7 


000001 


173510 




BIC 


1471 


c o c :: £ 4 


032767 


017777 


173502 




BIT 


1472 


0CC072 


c:ioc4 








BNE 


1473 


0C6074 


5067 


1735C2 






CLR 


1474 


006100 


005067 


1735u0 






CLR 



(SP)+, 

MMAVA 

31S 

#160000 

A-4C000, 

"2, 

ffBITO. 

*MA5K4K 

START1 

LADMAP 

LADMAP+2 



-{SP) 

SRDOCT 

.CONST 



GO PRINT 
ADDRESS 
"SELECT 
PROVIDE AN 
TRUCTICN AS 
PUT THE 
GO TO T 



LSTADR 
LSTADR 
LSTADR 
LSTADR 
LSTADR 



OUT 
OF M 
CCNS 

IN 

CAL 
PROC 
E 5U 



CHECK IF 
BR IF NO 
ADJUST 
. . .VIRTU, 
ADJUST L, 
MAKE SUR 
CHECK IF 



MEM 
MEM 
STAD 



THE FOLLOWING MESSAGE. 

SSACE TO BE TYPED 
TANT: " 

RFACt TO THE SRDOCT ROUTINE 
LED FOR BY **SYSMAC**. 
ESSOR STATUS ON THE STACK 

ROUTINE 

MGMT IS AVAILABLE. 

MGMT. 
R TO VIRTUAL BANK 0. 



ADDRESS UP ONE WORD, 
IS A WORD ADDRESS. 

T ADR IS ON BANK BOUNDRY. 
BR IF NOT CN BOuNDRY. 
CLEAR OUT THE LAST ADDRESS MAP. 



CZQMCFO Q-124K I 
CZQMCF.P11 14- 



EMQRY EXERCISER, 
EB-7S 08:19 
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;* THE REST OF THE PROGRAM IS POSITION INDEPENDENT CODE, SO THAT IT CAN EXICUTE PROPERLY WHEN THE PROGRAM HAS BEEN RELO 
; * THIS IS DONE SO THAT THE FIRST TWO BANKS OF MEMORY CAN BE EXERCISED IN EXACTLY THE SAME MANNER AS THE REST OF MEMORY 
•./'■\*/i\*/i\*/'.\*/:\*/'.\*/:\'*/i\ + /t\*/i\*/:\*/i\*/:\*/'.\*/:\ + /:\*/:\*/:\* 

;SET STACK POINTER 

;CHECK CACHE PRESENT FLAG 

; BRANCH IF NO CACHE 

;TURN OFF CACHE 

; INIT LOOP ADDRESS. 

;SET UP MEMORY PARITY ERROR VECTOR 

; CHECK FOR V EMORY MANAGEMENT AVAILABLE. 

; BRANCH IF NO MEM MGMT. 

; CHECK IF MEM MGMT ENABLED. 

;BR IF MEM MGMT ENABLED. 

;SET UP MEM MGMT REGISTERS. 



1482 


006104 


016706 


173512 




START1 


MOV 


.STACK, 


SP 


1483 


0061 10 


0C5767 


173,502 






TST 


CASFLG 




1484 


0061 1 4 


001403 








BF-1 


1$ 




1485 


0061 16 


052777^ 


000014 


173474 




BIS 


#14, 


@CASREG 


1486 


0C6124 


01^767 


9P6104 


172754 


1$: 


MOV 


#START1 


,$LPADR 


1487 


006132 


0^6767 


172442 


172746 




ADD 


RELOCF, 


SLPADR 


1488 


OOG140 


004767 


011372 






JSR 


PC, 


MAMF 


1489 


006144 


005767 


172436 






TST 


MMAVA 




1490 


006150 


0014,06 








BEO 


TST1 




1491 


006152 


032737 


000001 


177572 




BIT 


0BITO, 


@# r .R0 


1492 


006160 


001Q02 








BNE 


TST1 




1493 


006162 


QQ4767 


006112 






JSR 


PC, 


MMINIT 
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1494 








1495 








1496 








1497 








1498 








1499 








1500 








1501 








1502 








1503 








1504 


006166 






1505 


006165 


004567 


012436 


1506 


006172 


0Q00C1 




1507 








1508 


006174 


000167 


Q05§04 


1509 








1510 








1511 


006200 


0Q4467 


006222 


1512 


006204 


004767 


007644 


1513 


006210 


01 0012 




1514 


005212 


012201 




1515 


006214 


0200C1 




1516 


006216 


0014C5 




1517 


006220 


004767 


012142 


1518 


006224 


PC4767 


013410 


1519 


006230 


000002 




1520 


006232 






1521 


006232 


062700 


000002 


1522 


006236 


030502 




1523 


006240 


001363 




1524 


006242 


004767 


006736 


1525 








1526 








1527 








1528 


006246 


004467 


O06612 


1529 


006252 


004767 


007576 


1530 


006256 


162700 


000002 


1531 


006262 


0': 4201 




1532 


006264 


020001 




1533 


006266 


0Q1405 




1534 


C05270 


00 4767 


012046 


1535 


006274 


C04767 


013340 


1536 


0063C0 


0G0002 




1537 


006302 






1538 


006302 


C3Q502 




1539 


006304 


001364 




1540 


006306 


0Q4767 


007362 



.SBTTL SECTION 1 : 



MEMORY ADDRESS TESTS 



WRITE VALUE OF MEMORY ADDRESS INTO MEMORY 
DATA WRITTEN INTO MEMORY (SHOULD BE) 
DATA READ FROM MEMORY (WAS) 
VIRTUAL ADDRESS 
NOT USED 
>3T USED 
BLOCK BQUNDRY BIT MASK. 



JSR 
.WORD 



UPWARDS WORD ADDRESSING. 





JSR 


R4, 


INITMM 


1$; 


JSR 


PC, 


PHYADR 


28: 


MOV 


RO, 


(R2) 




MOV 


(R2)+, 


R1 




CMP 


RO, 


R1 




BEQ 


65$ 




64$ 


JSR 


PC, 


SPRNT2 




JSR 


PC, 


$ERROR 




.WORD 


2 




65$ 










ADD 


#2, 


RO 




BIT 


R5, 


R2 




BNE 


2$ 






JSR 


PC, 


MM UP 


; * 


CHECK THAT 


VALUE OF 


MEMORY 


;* 


DOWNWARDS 


WORD ADDRESSING. 




JSR 


R4, 


INITDN 


3$: 


JSR 


PC, 


PHYADR 


45 : 


SUB 


#2, 


RO 




MO" 


-(R2), 


R1 




CMP 


RO, 


R1 




BEO 


67$ 




66$ 


JSR 


PC, 


SPRNTO 




JSR 


PC, 


SERRCR 




.WORD 


2 




675 










BIT 


R5, 


R2 




BNE 


4$ 






JSR 


PC, 


MMDOWN 



;G0 TO SCOPE ROUTINE. 

;MIN!MUM BLOCK SIZE OF 1 WORDS 

; REQUIRED FOR THIS TEST. 

;SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 

; AVAILABLE FOR TEST. 

; INITIALIZE THE MEMORY ADDRESS POINTERS. 

;GET PHYSICAL ADDRESS INTO RO 

;WRITE VALUE OF A'DRESS INTO ADDRESS 

;GET THE DATA FROM MEMORY UNDER TEST. 

-.COMPARE THE CHECK WORD WITH THE DATA READ. 

; BRANCH OVER ERROR CALL IF GOOD DATA. 

;SET UP VALUES FOR ERROR PRINTING. 

;*** ERROR *** (GO TYPE A ME5SAGE) 

;ERROR TYPE CODE. 

;ADD n2 TO PHYSICAL ADDRESS 
; CHECK FOR END OF A BLOCK. 
;BRANCH IF MORE IN CURRENT BLOCK. 
;FIND NEXT BLOCK AND LOOP TO 1$. 



EMORY ADDRESS WAS WRITTEN CORRECTLY 



INITIALIZE THE MEMORY ADDRESS POINTERS. 

;GET PHYSICAL ADDRESS INTO RO 

;DEC DATA 3Y 2 

;GET THE DATA FROM MEMORY 

;CQ..",PARE THE CHECK WORD WITH THE DATA READ. 

; BRANCH OVER ERROR CALL IF GOOD DATA. 

;SET UP VALUES FOR ERROR PRINTING. 

;*** ERROR +** {GO TYPE A MESSAGE) 

;ERROR TYPE CODE. 

;CHECK FOR END OF A BLOCK. 
;BRANCH IF MORE IN CURRENT BLOCK. 
;FIND NEXT BLOCK AND LOOP TO STAG1 . 
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1541 








1542 








1543 








1544 








1545 








1546 








1547 








1548 








1549 








1550 


006312 






1551 


006312 


004567 


012312 


1552 


00S316 


000000 




1553 








1554 


006320 


0C4467 


006102 


1555 


006324 


004767 


007524 


1556 


006330 


1 1 0022 




1557 


006332 


005200 




1558 


006334 


030502 




1559 


006336 


001374 




1560 


006340 


004767 


006640 


1561 








1562 








1563 








1564 


006344 


0044u7 


006514 


1565 


006350 


004767 


007500 


1566 


006354 


005300 




1567 


006356 


1 14201 




1568 


006360 


120001 




1569 


006362 


001405 




1570 


006364 


004767 


011752 


1571 


006370 


0. 4767 


013244 


1572 


006374 


000003 




1573 


006376 






1574 


006376 


030502 




1575 


006400 


001365 




1576 


006402 


004767 


007266 


1577 








1578 








1579 








1580 








1581 








1582 








1583 








1584 








1585 








1586 








1587 


006406 






1588 


006406 


004567 


012216 


1589 


006412 


000000 




1590 








1591 


006414 


004467 


006444 


1592 


006420 


004767 


007430 


1593 


006424 


005100 




1594 


006426 


062700 


0000u2 


1595 


006432 


01 0042 




1596 


006434 


030502 





WRITE VALUE OF MEMORY ADDRESS INTO MEMORY 
DATA WRITTEN INTO MEMORY (SHOULD BE) 
DATA READ FROM MEMORY (WAS) 
VIRTUAL ADDRESS 
NOT USED 
NOT USED 
BLOCK BOUNDRY BIT MASK. 



TST2: 








JSR 


R5, 


SSCOPE 




.wr-Q 







;* 


UPWARDS BYTE ADDRESSING. 




JSR 


R4, 


INITMM 


1$: 


JSR 


PC, 


PHYADR 


25 : 


MOVB 


RO, 


(R2) + 




INC 


RO 






BI" 


R5, 


R2 




BNE 


2$ 






JSR 


PC, 


MM UP 


;* 


CHECK THAT 


VALUE OF 


MEMORY 


;* 


DOWNWARDS 


BYTE ADDRESSING. 




JSR 


R4, 


INITDN 


3S: 


JSR 


PC, 


PHYADR 


4C: 


DEC 


RO 






MOVB 


-(R2), 


R1 




Cl.ir'B 


RO, 


R1 




BEO 


65$ 




64$ 


JSR 


PC, 


SPRNTO 




JSR 


PC, 


SERROR 




.WORD 


3 




65S 










BIT 


R5, 


R2 




BNE 


4$ 






JSR 


PC, 


MMDOWN 



;G0 TO SCOPE ROUTINE. 

;N0 MINIMUM BLOCK SIZE REQUIRED THIS TEST. 

INITIALIZE THE MEMORY ADDRESS POINTERS. 

;GET PHYSICAL ADDRESS INTO RO 

;WRITE VALUE OF ADDRESS INTO ADDRESS 

;ADD ONE TO PHYSICAL ADDRESS 

;CHECK FOR END OF A BLOCK. 

; BRANCH IF MORE IN CURRENT BLOCK. 

;FIND NEXT BLOCK AND LOOP TO 1$. 



INITIALIZE THE MEMORY ADDRESS POINTERS. 

GET PHYSICAL ADDRESS INTO RO 

DEC DATA BY 1 

GET THE DATA FROM MEMORY 

CHECK THE DATA...LO BYTE ONL/ VALID. 

BRANCH OVER ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 

*** ERROR *** (GO TYPE A MESSAGE) 

ERROR TYPE CODE. 

CHECK FOR END OF A BLOCK. 
BRANCH IF MORE IN CURRENT SLOCK. 
FIND NEXT BLOCK AND LOOP TO STAG1 . 



3 WRITE 1'S COMPLEMENT VALUE OF ADDRESS INTO ADDRESS. 

RO a DATA WRITTEN INTO MEMORY (SHOULD BE) 

R1 = DATA READ FROM MEMORY (WAS) 

R2 = VIRTUAL ADDRESS 

R3 = NOT USED 

R4 = NOT USED 

R5 = BLOCK BOUNDRY BIT MASK. 



;G0 TO SCOPE ROUTINE. 

;N0 MINIMUM BLOCK SIZE REQUIRED THIS TEST. 

; INITIALIZE THE MEMORY ADDRESS POINTERS. 

;GET PHYSICAL ADDRESS INTO RO 

; COMPLEMENT THE ADR 

;+2 TO DATA — ADR GOES DOWN SO COM GOES UP 

;PUT DATA INTO MEMORY 

;CHECK FOR END OF A BLOCK. 



TST3: 






JSR 


R5 


SSCOPE 


.WORD 







;* DOWNWARDS 


WORD 


ADDRESSING. 


JSR 


R4, 


INITDN 


1$: JSR 


PC, 


PHYADR 


COM 


RO 




2$: ADD 


#2, 


RO 


MOV 


RO, 


-(R2) 


BIT 


R5, 


R2 
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T3 WRITE l'S COMPLEMENT VALUE OF ADDRESS INTO ADDRESS. 



1597 


006436 


001373 




1598 


006440 


0C4767 


007230 


1599 








1600 








1601 








1602 


006444 


004467 


005756 


1603 


006450 


004767 


007400 


1604 


006454 


005100 




1605 


006455 






1606 


006456 


012201 




1607 


006460 


O'OOOI 




1608 


006462 


0C1405 




1609 


005464 


004767 


01 1676 


1610 


006470 


004767 


013144 


1611 


006474 


0000C2 




1612 


006476 






1613 


006476 


162700 


000002 


1614 


006502 


0305C2 




1615 


006504 


001364 




1616 


006506 


0C4767 


006472 


1617 








1618 








1619 








1620 








1621 








1622 








1623 








1624 








1625 








1626 








1627 


006512 






1628 


006512 


0C45E7 


012112 


1629 


006516 


000000 




1630 








1631 


006520 


004467 


005702 


1632 


006524 


004767 


007400 


1633 


006530 


110022 




1634 


006532 


030502 




1635 


006534 


001375 




1636 


006536 


004767 


006442 


1637 








1638 








1639 








1640 


006542 


004467 


005660 


1641 


006546 


004767 


007356 


1642 


006552 


1 : 2201 




1643 


0C6554 


0200C1 




1644 


0C6556 


001405 




1645 


0C6560 


004767 


011564 


1646 


006564 


004767 


013050 


1647 


006570 


000003 




1648 


006572 






1649 


006572 


030502 




1650 


CC6574 


001366 




1651 


006576 


004767 


006402 


1652 









BNE 


2$ 




JSR 


PC, 


MMDOWN 


HECK COMPLEMENT 


DATA WRIT 


PWARDS WORD ADDRESSING. 


JSR 


R4, 


INITMM 


JSR 


PC, 


PHYADR 


CC-.1 


RO 




MOV 


(R2) + 


, R1 


CMP 


RO, 


R1 


BEQ 


65$ 




JSR 


PC, 


SPRNT2 


JSR 


PC, 


SERROR 


.WORD 


2 




SUB 


#2, 


RO 


BIT 


R5, 


R2 


BNE 


4$ 




JSR 


PC, 


MMUP 



;BRANCH IF MORE IN CURRENT BLOCK. 
;FIND NEXT BLOCK AND LOOP TO 1$. 



; INITIALIZE THE MEMORY ADDRESS POINTERS. 
;GET PHYSICAL ADDRESS INTO RO 
; COMPLEMENT IT 

;GET THE DATA FROM MEMORY UNDER TEST. 

; COMPARE THE CHECK WORD WITH THE DATA READ. 

;BRANCH OVEP ERROR CALL IF GOOD DATA. 

;SET UP VALUES FOR ERROR PRINTING. 

;*** ERROR *** (GO TYPE A MESSAGE) 

;ERROR TYPE CODE. 

; COUNT DOWN WITH ADDRESS 
;CHECK FOR END OF A BLOCK. 
;BRANCH IF MORE IN CURRENT BLOCK. 
;FIND NEXT BLOCK AND LOOP TO 3$. 



*TEST 4 WRITE BANK H INTO ALL ADDRESSES IN A 4K BANK 

* RO = DATA WRITTEN INTO MEMORY (SHOULD BE) 
R1 = DATA READ FROM MEMORY (WAS) 

* R2 = VIRTUAL ADDRESS 
k R3 = NOT USED 

i- R4 = OT USED 

* R5 = B-OCK BOUNDRY BIT MASK. 



;G0 TO SCOPE ROUTINE. 

;N0 MINIMUM BLOCK SIZE REQUIRED THIS TEST. 

; INITIALIZE THE MEMORY ADDRESS POINTERS. 

;GET THE BANK NUMBER INTO RO 

'.WRITE BANK ft INTO ALL ADDRESSES 

;CHECK FOR END OF A BLOCK. 

; BRANCH IF MORE IN CURRENT 3L0CK. 

;FIND NEXT BLOCK -.NO LOOP TO 1$. 



; INITIALIZE THE MEMORY ADDRESS POINTERS. 

;GET THE BANK NUMBER INTO RO 

;READ THE DATA OUT OF MEMORY 

; COMPARE THE CHECK WORD WITH THE DATA READ. 

; BRANCH OVEP ERROR CALL IF GOOD DATA. 

;SET UP VALUES FOR ERROR PRINTING. 

;*** ERROR *** (GO TYPE A MESSAGE) 

;ERROR TYPE CODE. 

;CHECK FOR END OF A BLOCK. 
;BRANCH IF MORE IN CURRENT BLOCK. 
;FIND NEXT BLOCK AND LOOP TO 3$. 





JSR 


R5, 


SSCOPE 




.WORD 







;* 


UPWARDS BYTE ADDRESSING. 




JSR 


R4, 


INITMM 


1$: 


JSR 


PC, 


BANKNO 


2$: 


MOVB 


RO, 


(R2) + 




BIT 


R5, 


R2 




BNE 


2$ 






JSR 


PC, 


MMUP 


;* 


CHECK THAT 


DATA 


WRITTEN ABC 


; * 


UPWARDS BYTE ADDRESSING. 




JSR 


R4, 


INITMM 


3S: 


JSR 


PC, 


BANKNO 


4S: 


MOVB 


(R2) 


+ , R1 




CMP 


RO, 


R1 




BEQ 


65$ 




64$ 


JSR 


PC, 


SPRNT1 




JSR 


PC, 


SERROR 




.WORD 


3 




65$ 










BIT 


R5, 


R2 




BNE 


4$ 






JSR 


PC, 


MMUP 
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1653 








1654 








1655 








1656 








1657 








1658 








1659 








1660 








1661 








1662 


006502 






1663 


Q0S602 


0C4567 


012022 


1664 


003606 


ocoooo 




1665 








1666 


006610 


004467 


0062^3 


1667 


006614 


0C4767 


007310 


1668 


006620 


0C51C0 




1669 


006622 


110042 




1670 


Q06624 


050502 




1671 


006626 


001375 




1672 


006630 


004767 


007040 


1673 








1674 








1675 








1676 


005634 


004467 


006224 


1677 


006640 


004767 


007264 


1678 


006644 


C051C0 




1679 


006646 


1 14201 




1680 


006650 


020001 




1681 


006652 


001405 




1682 


006654 


004767 


011462 


1683 


006660 


004767 


012754 


1684 


006654 


000003 




1685 


006666 






1686 


006666 


03Q5C2 




1687 


006670 


001366 




1688 


006672 


004767 


006776 



MACYM 30A(1052) 20-FE8-78 07:56 PAGE 
WRITE 1'S COMPLEMENT OF BANK A. 



WRITE 1'S COMPLEMENT OF EANK tt . 
DATA WRITTEN INTO MEMORY (SHOULD BE 
DATA READ FROM MEMORY (WAS) 
VIRTUAL ADDRESS 
NOT USED 
NOT USED 
.".OCK BOUNDRY BIT MASK. 



) 





JSR 


R5, 




SSCCPE 




.WORD 









;* 


DOWNWARDS 


BYTE 


ADDRESSING. 




JSR 


R4, 




INITDN 


1$: 


JSR 
COM 


PC, 
RO 




BANKNO 


2S: 


MOVB 


RO, 




-(R2) 




BIT 


R5, 




R2 




BNE 


2$ 








JSR 


PC, 




MMDOWN 


;* 


CHECK THAT 


DATA 


WRITTEN CA 


; * 


DOWNWARDS 


BYTE 


ADDRESSING. 




JSR 


R4, 




INITDN 


3$: 


JSR 
COM 


PC, 
RO 




BANKNO 


4$: 


MOVB 


-(R2), 


R1 




CIV.P 


RO, 




R1 




BEO 


65$ 






64$ 


JSR 


PC, 




SPRNTO 




JSR 


PC, 




SERROR 




.WORD 


3 






65$ 












BIT 


R5, 




R2 




BNE 


4$ 








JSR 


PC, 




MMDOWN 



;G0 TO SCOPE ROUTINE. 

;N0 MINIMUM BLOCK SIZE REQUIRED THIS TEST. 

; INITIALIZE THE MEMORY ADDRESS POINTERS. 

;GET THE EANK NUMBER INTO RO 

;l'S COMPLEMENT OF BANK a 

;PUT 1'S COM OF BANK # INTO MEMORY 

;CHECK FOR END OF A BLOCK. 

; BRANCH IF MORE IN CURRENT BLOCK. 

;FIND NEXT BLOCK '.ND LOOP TO 1$. 

BE READ. 

; INITIALIZE THE MEMORY ADDRESS POINTERS. 

;GET THE BANK It INTO RO 

;SET 1'S COMPLEMENT OF BANK H 

; READ DATA OUT OF MEMORY 

; COMPARE THE CHECK WORD WITH THE DATA READ. 

; BRANCH OVER ERROR CALL IF GOOD DATA. 

;SET UP VALUES FOR ERROR PRINTING. 

;*** ERROR *** (GO TYPE A MESSAGE) 

;ERRO^ TYPE CODE. 

; CHECK FOR END OF A BLOCK. 

; BRANCH IF MORE IN CURRENT BLOCK. 

;FIND NEXT BLOCK AND LOOP TO $TAG1 . 
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1689 








1690 








1691 








1692 








1693 








1694 








1695 








1696 








1697 








1698 








1699 








1700 








1701 








1702 








1703 








1704 


006676 






1705 


006676 


004567 


011726 


1706 


006702 


ocooco 




1707 


006704 


0167Q0 


172700 


1708 


0C6710 


004467 


005512 


1709 


006714 


01 0022 




1710 


006716 


030502 




171 1 


006720 


Q01375 




1712 


006722 


0047C7 


006256 


1713 








1714 








1715 








1716 








1717 








1718 


006726 






1719 


006726 


Q 4567 


011676 


1720 


006732 


OOOOCO 




1721 


005734 


0167C0 


172650 


1722 


006740 


004467 


005462 


1723 


0C6744 






1724 


006744 


0* 2201 




1725 


0C6746 


0200C1 




1726 


006750 


0014C5 




1727 


006752 


004767 


01 1410 


1728 


006756 


004767 


012656 


1729 


006762 


000004 




1730 


006764 






1731 


006764 


030502 




1732 


006766 


001366 




1733 


006770 


004767 


006210 


1734 








1735 








1736 








1737 


006774 


032777 


000400 172136 


1738 


0070C2 


C01416 




1739 


007004 


01 7746 


172130 


1740 


007010 


042716 


177740 


1741 


0C7014 


022726 


000006 


1742 


007020 


001007 




1743 


007022 


162767 


000001 172052 


1744 


007030 


162767 


000030 172050 



.SBTTL SECTION 2: 



WORST CASE NOISE TESTS 



THESE TESTS WRITE MEMORY WORST CASE NOISE TEST PATTERNS THROUGHOUT 
MEMORY AND CHECK THAT THEY CAN BE WRITTEN AND READ. 



WRITE A CONSTANT INTO MEMORY. 
THE CONSTANT IS USER SELECTABLE (DEFAULT = 0). 
- DATA WRITTEN INTO MEMORY (SHOULD BE) 
= DATA READ FROM MEMORY (WAS) 
= VIRTUAL ADDRESS 
- NOT USED 
= NOT USED 
= BLOCK BOUNDRY EIT MASK. 



JSR 
.fcORD 

MOV 
JSR 
MOV 
BIT 
BNE 
JSR 



>:TEST 7 
► IMPORT 



JSR 
.WORD 
MOV 
JSR 

MOV 
CMP 
BEQ 
JSR 
JSR 
.WORD 

BIT 
BNE 
JSR 



BIT 
BEQ 
MOV 
BIC 
CMP 
BNE 
SUB 
SUB 



R5, SSCOPE ;G0 TO SCOPE ROUTINE. 

;N0 MINIMUM BLOCK SIZE REQUIRED THIS TEST. 

.CONST, RO . ;GET USER CONSTANT' 

R4, INITMM ; INITIALIZE THE MEMORY ADDRESS POINTERS. 

RO, (R2)+ ;WRITE CONSTANT INTO MEMORY. 

R5, R2 ;CHECK FOR END OF A BLOCK. 

1$ '.BRANCH IF MORE IN CURRENT BLOCK. 

PC, MMUP ;FIND NEXT BLOCK AND LOOP TO 1$. 



READ MEMORY AND COMPARE TO CONSTANT. 

THIS TEST SHOULD NOT BE RUN WITHOUT FIRST RUNNING TEST $TN. 



;G0 TO SCOPE ROUTINE. 

;NO MINIMUM BLOCK SIZE REQUIRED THIS TEST. 

T USER CONSTANT 

ITIALIZE THE MEMORY ADDRESS POINTERS. 

(R2)+, R1 ;GET THE DATA FROM MEMORY UNDER TEST. 
RO, R1 ;COMPARE THE CHECK WORD WITH THE DATA READ. 
65$ ; BRANCH OVER ERROR CALL IF GOOD DATA. 

PC, SPRNT2 ;SET UP VALUES FOR ERROR PRINTING. 
PC, SERROR ;*** ERROR »** (GO TYPE A MESSAGE) 
RQR TYPE CODE. 



; CHECK FOR END OF A BLOCK. 
; BRANCH IF MORE IN CURRENT BLOCK. 
;FIND NEXT BLOCK AND LOOP TO 1$. 
ELECTED THRU THE SWR. 
AND FORTH BETWEEN TESTS 6 
, SW02, AND SWC8 ARE SET. 
CHECK THAT LOOP ON TEST BIT SET 
BRANCH IF NOT LOOP ON TEST 
GET SWITCH REGISTER DATA. 
CLEAR NON-TEST-NUMBER SWITCHS. 
CHECK IF TEST 6 IN SWITCHES. 
BRANCH IF NOT TEST 6 
RESET TEST NUM 
RESET LOOP ADR 



SPECIAL CHECK TO SEE IF TEST 6 IS ! 
ALLOWS THE OPERATOR TO SWITCH BACK 
BY SIMPLY ■•TOGGLING" SWOO WHEN SWO 



ASW08, @SWR 

TST10 

©SWR, -(SP) 

#177740, (SP) 

#6, (SP) + 

TST10 

#1, STSTNM 

#TST7-TST6,$LPADR 



CZOMCFO 


0-12* 


K t> EMORY 


EXERCI 


CZQMCF. 


P11 14-FEB-78 


08M9 


1745 


007036 


0C0722 




1746 








1747 








1748 








1749 








1750 








1751 


007040 






1752 


007040 


004567 


011564 


1753 


007044 


000000 




1754 


007046 


016704 


172562 


1755 


007052 


0:4767 


010560 


1756 


007056 


01 2400 




1757 


007060 


001420 




1758 


007062 


004467 


005340 


1759 


007066 


010012 




1760 


007070 


01 2201 




1761 


007072 


020001 




1762 


007074 


0C14O5 




1763 


007076 


0C4767 


011264 


1764 


007102 


0G4767 


012532 


1765 


007106 


0C0004 




1766 


0071 10 






1767 


0071 10 


030502 




1768 


0071 12 


001365 




1769 


0071 14 


004767 


006064 


1770 


007120 


000754 





16K VER 
T7 



MATY11 3QA(1052) 20-FEB-78 07:56 PAGE 
REAP MEMORY AND COMPARE TO CONSTANT. 



;G0 TO TEST 6 



WORSE CASE NOISE (PARITY) WORD TESTING 
CHECK MEMORY WITH A SERIES OF PATTERNS 



2$: 

64$: 
65$: 



J£ J 

.WORD 

MOV 

JSR 

MOV 

BEO 

JSR 

MOV 

MOV 

CMP 

BEO 

JSR 

JSR 

.WORD 

BIT 
BNE 
JSR 



R5, 


.MPPAT, 

PC, 

(R4)+, 

TST11 

R4, 

RO, 

(R2)+, 

RO, 

65$ 

PC, 

PC, 



R5, 
2$ 
PC, 
1$ 



INI .MM 
R1 



SPRNT2 
SERROR 



;G0 TO 
;N0 MIN 
; INITIA 
; CHECK 
;GET TH 
; i BR IF 
; INITIA 
;PUT DA 
;QE' 
;COMPAR 
; BRANCH 
;SET UP 
;*** ER 
; ERROR 



SCOPE ROUTINE. 

IMUM BLOCK SIZE REQUIRED THIS TEST. 

L1ZE PATTERN TABLE POINTER 

FOR NON-TRAP PARITY MEMORY ERRORS. 

E DATA PATTERN. 

END OF TABLE. 
LIZE THE MEMORY ADDRESS POINTERS. 
TA PATTERN INTO MEMORY. 
E DATA FROM MEMORY UNDER TEST. 
E THE CHECK WORD WITH THE DATA READ. 

OVER ERROR CALL IF GOOD DATA. 

VALUES FOR ERROR PRINTING. 
ROR *** (GO TYPE A MESSAGE) 
TYPE CODE. 



;CHECK FOR END OF A BLOCK. 
;BRANCH IF MORE IN CURRENT BLOCK. 
;FIND NEXT BLOCK AND LOOP TO 2$. 
;BR BACK TO DO NEXT PATTERN 



CZOMCFO 0-124K MEMORY EXERCISER, 
CZQMCF. P11 14-FEB-78 08:19 



16K VER MACY11 30A(1052) 20-FE3-78 07:56 PAGE 39 
T11 ROTATE A "0" BIT THROUGH A FIELD OF ONES. 



1771 








;;************ 


******** 


******** 


1772 








;*TEST 


11 


ROTATE 


A "0" B 


1773 








. .**** 


******* 


**************** 


1774 


007122 






TST11 : 








1775 


007122 


0C4567 


011502 




JSR 


R5, 


$SCOPE 


1776 


007126 


000000 






.WORD' 







1777 


007130 


012700 


177777 




MOV 


#-1 , 


RO 


1778 


007134 


0C4767 


007030 




JSR 


PC, 


SETCON 


1779 


007140 


CC'4467 


005262 




JSR 


R4, 


INITMM 


1780 


007144 


0C0241 




1$: 


CLC 






1781 


007146 


0C4767 


007036 




JSR 


PC, 


ROTATE 


1782 


007I52 


016201 


177776 




MOV 


-2(R2) 


R1 


1783 


007156 


10 3402 






BCS 


63$ 




1764 


007160 


020001 






CMP 


RO, 


R1 


1785 


007162 


001405 






BEQ 


64$ 




1786 


007164 


004767 


01 1 176 


63$: 


JSR 


PC, 


SPRNT2 


1787 


007170 


0C4767 


012444 




JSR 


PC, 


SERROR 


1788 


007174 


000005 






.WORD 


5 




1789 


007176 






64$: 








1790 


007176 


0305C2 






BIT 


R5, 


R2 


1791 


007200 


001361 






BNE 


1$ 




1792 


007202 


004767 


005776 




JSR 


PC, 


MMUP 


1793 
















1794 








; ; ***** 


******* 




«.****** 


1795 








;*TEST 


12 


ROTATE 


A " 1 " B 


1796 








; ;***** 


******* 


K*******4 


******** 


1797 


007206 






TST12: 








1798 


007206 


004567 


01 1416 




JSR 


R5, 


SSCOPE 


1799 


007212 


000000 






.WORD 







1800 


007214 


005000 






CLR 


RO 




1801 


007216 


0D4767 


006746 




JSR 


PC, 


SETCON 


1802 


007222 


004467 


005200 




JSR 


R4, 


INITMM 


1803 


007226 


C00261 




15: 


SEC 






1804 


007230 


004757 


006754 




JSR 


PC, 


ROTATE 


1605 


007234 


016201 


177776 




MCV 


-2(R2) 


R1 


1806 


007240 


1C30C2 






BCC 


63$ 




1807 


007242 


020001 






CMP 


RO, 


H1 


1808 


007244 


C01405 






BEO 


64$ 




1809 


007246 


004767 


011114 


63$: 


JSR 


PC, 


SPRNT2 


1810 


007252 


004767 


012362 




JSR 


PC, 


SERROR 


1811 


007256 


000005 






.WORD 


5 




1812 


007260 






64$: 








1813 


007260 


030502 






BIT 


R5, 


R2 


1814 


007262 


1 3 "■ 1 






BNE 


1$ 




1815 


007264 


004767 


005714 




JSR 


PC, 


MMUP 



;G0 TO SCOPE ROUTINE. 

;N0 MINIMUM BLOCK SIZE REQUIRED THIS TEST. 

;SET CHECK WORD 

;PUT THE CONTENTS OF RO IN ALL MEMORY. 

; INITIALIZE THE MEMORY ADDRESS POINTERS. 

-.CLEAR CARRY BIT IN PSW 

;GET RESULT 

;BRANCH IF 'C BIT WAS SET 

; COMPARE THE CHECK WORD WITH THE DATA READ. 

; BRANCH OVER ERROR CALL IF GOOD DATA. 

;SET UP VALUES FOR ERROR PRINTING. 

;*** ERROR *** (GO TYPE A MESSAGE) 

;ERROR TYPE CODE. 

;CHECK FOR END OF \ BLOCK. 

; BRANCH IF MORE IN CURRENT BLOCK. 

;FIND NEXT BLOCK AND LOOP TO 1$. 



BIT THROUGH A FIELD OF ZEROS 



;G0 TO SCOPE ROUTINE. 

;N0 MINIMUM BLOCK SIZE REQUIRED THIS TEST. 

;SET CHECK WORD 

;PUT THE CONTENTS OF RO IN ALL MEMORY 

; INITIALIZE THE MEMORY ADDRESS POINTERS. 

;SET 'C BIT IN PSW 

;G0 ROTATE ' 1 ' BIT 

;GET RESULT 

;BRANCH IF 'C IS CLEAR 

;CO.'.PARE THE CHECK WORD WITH THE DATA READ. 

;BRANCH OVER ERROR CALL IF GOOD DATA. 

;SET UP VALUES FOR ERROR PRINTING. 

;*** ERROR *** (GO TYPE A MESSAGE) 

;ERROR TYPE CODE. 

;CHECK FOR END OF A BLOCK. 

; BRANCH IF MORE IN CURRENT BLOCK. 

;FIND NEXT BLOCK AND LOOP TO 1$. 



CZQMCFC 


0-1 24K MEMORY 


EXEHCI 


CZQMCF, 


P11 l4*-FEB-'78 


08M9 


1816 








1817 








1818 








1819 


007270 






1820 


007270 


00456? 


011334 


1821 


007274 


000777 




1822 








1823 


007276 


000167 


QQQ312 


1824 








1825 


007302 


QQ500D 




1826 


007304 


Q127Q3 


177777 


1827 


P0731Q 


004467 


005112 


1828 


007314 


004767 


006736 


1829 


00732Q 


020502 




1830 


Q07322 


001374 




1831 


007324 


004767 


005654 


1832 








1633 








1834 








1835 








1836 


007330 


0050C0 




1837 


007332 


004.467 


005070 


1838 


007336 


012704 


OQ0100 


1839 


007342 






184Q 


007342 


01 2201 




1841 


007344 


020001 




1842 


007346 


Q014C5 




1843 


007350 


004767 


011012 


1844 


007354 


004767 


012260 


1845 


007360 


0C0007 




1846 


007362 






1847 


007362 


012201 




1848 


007364 


020Q01 




1849 


007366 


001405 




1850 


007370 


004767 


01Q772 


1851 


007374 


004767 


012249 


1852 


OQ7400 


OC0007 




1853 


0074Q2 






1B54 


007402 


01220t 




1855 


C07404 


G20CC1 




1856 


0074Q6 


001405 




1857 


007410 


004767 


010,752 


1858 


007414 


004767 


012220 


1859 


007420 


000007 




i860 


007422 






1861 


007422 


012201 




1862 


007424 


020001 




1863 


007426 


00 1405 




1864 


0G743Q 


004767 


010732 


1865 


007434 


0C4767 


01220Q 


1866 


007440 


000007 




1867 


007442 






1868 


007442 


005.1QO 




1869 


007444 


005304 




1870 


007446 


QQ1335 




1871 


007450 


0051 00. 





16K VER MACY11 30A{1Q52) 20-FEP- 
T13 3 mH 9 TEST PATTERN. 



07:56 PAGE 40 



;*TEST 


13 


3 XOR 9 


TEST P 


. . * t ** 


********* 


******** 




TST13: 










OSR 


R5, 


SSCOPE 




.WORD 


777 






JMP 


TST14 




.3X9: 


Cl-R 


RO 






MOV 


#-1 , 


R3 




jsr 


R4, 


INJTMM 


1$I 


J$R 


PC, 


W3X9 


BIT 


R5, 


R2 




BNE 


1$ 






JSR 


PC, 


f.'MUP 



;G0 TO SCOPE ROUTINE. 

;MINIMUM BLOCK SIZE OF 256. WORDS 

; REQUIRED FOR THIS TEST. 

;SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 

; AVAILABLE FOR TEST. 

;SET UP TEST DATA 

;SET COM DATA REG 

; INITIALIZE THE MEMORY ADDRESS POINTERS. 

-.WRITE 256. WORD BLOCK WITH 3 XOR 9 PAT. 

;CHECK FOR END OF A BLOCK. 

; BRANCH IF MORE IN CURRENT BLOCK. 

;FIND NEXT BLOCK AND LOOP TO 1$. 



;* CHECK 3 XOR 9 TEST PATTERN WRITTEN AEOVE 





CLR 


RO 






JSR 


R4, 


INITMM 


11$; 


MOV 


#64, , 


R4 


12s: 










MOV 


(R2)+, 


R1 




CMP 


RO, 


R1 




BEO 


65$ 




64$; 


Ji.rf 


PC, 


SPRNT2 




JSR 


PC, 


SERROR 




• WORD 


7 




65$: 










MOV 


(R2)+, 


R1 




CMP 


RO. 


R1 




8EQ 


67$ 




66$: 


JSR 


PC, 


SP.;NT2 




JSR 


PC, 


SERROR 




.WORD 


7 




67$: 










MOV 


(R2)+, 


R1 




CMP 


RO, 


R1 




BEO 


69$ 




68$: 


, JSR 


PC, 


SPRNT2 




JSR 


PC, 


SERROR 




.WORD 


7 




69$: 










MOV 


(R2)+, 


R1 




CMP 


RO, 


R1 




BEO 


71$ 




70$: 


JSR 


PC, 


5PRNT2 




JSR 


PC, 


5ERR0R 




.WORD 


7 




7i $: 










COM 


RO 






DEC 


R4 






BNE 


12$ 






COM 


RO 





;SET CHECK WORD 

INITIALIZE THE MEMORY ADDRESS POINTERS. 

; SET 256. WORD COUNTER 

;GET THE DATA FROM MEMORY UNDER TEST. 

; COMPARE THE CHECK WORD WITH THE DATA READ. 

-.BRANCH OVEP ERROR CALL IF GOOD DATA. 

;SET UP VALUES FOR ERROR PRINTING. 

;*** ERROR *** (GO TYPE A MESSAGE) 

;ERROR TYPE CODE. 

;GET THE DATA FROM MEMORY UNDER TEST. 

; COMPARE THE CHECK WORD WITH THE DATA READ. 

; BRANCH OVEP ERROR CALL IF GOOD DATA. 

;SET UP VALUES FOR ERROR PRINTING. 

;*** ERROR *** (GO TYPE A MESSAGE) 

;ERROR TYPE CODE. 

;GET THE DATA FROM MEMORY UNDER TEST. 
-.COMPARE THE CHECK WORD WITH THE DATA READ. 
;BRANCH OVEP ERROR CALL IF GOOD DATA. 
;SET UP VALUES FOR ERROR PRINTING. 
;*** ERROR *** (GO TYPE A MESSAGE) 
;ERROR TYPE CODE. 

;GET THE DATA FROM MEMORY UNDER TEST. 

; COMPARE THE CHECK WORD WITH THE DATA READ. 

; BRANCH OVER ERROR CALL IF GOOD DATA. 

;SET UP VALUES FOR ERROR PRINTING. 

;*** ERROR *** (GO TYPE A MESSAGE) 

; ERROR TYPE CODE. 

; COMPLEMENT CHECK WORD 

; DECREMENT 256. WORD COUNTER 

ICOMPLEMENT CHECK WORD 



CZOMCFO 


0-1 24K MEMORY 


eXERCISgR,, 


1£K VCR 


MA^.YI 1 


30A(1052) 20-FEB 


CZQMCF. 


PI 1 14-FEB-78 


08J19 


T13 


3 XPR 9 TEST PATTERN. 


1872 


007452 


030502 






BIT 


R5, 


R2 


1873 


0Q7454 


0Q1330 






BNE 


11$ 




1874 
1 875 


09745$ 


004767 


0Q5S22 




J$R 


PC, 


MMUP 


1876 








;.*+********** 


******** 


********** 


1877 








■* CHECK, COM 


CHECK, 


COM, CHEC 


1878 








;;*<******,*%.** ********* 


********** 


1879 


007462 


PQ50CQ 






CI 1 


RO 




188Q 


007464 


004467 


004733/ 




JSR 


R4, 


INITMM 


1B81 


007470 


012704 


000\00 


21$: 


MOV 


#64., 


R4 


1862 


007474 


0'2703 


000004 


32$: 


MOV 


#4, 


R3 


1863 


007500 






?3$: 








1884 


007500 


Q123P1 






MOV 


(R2)+. 


R1 


1885 


007502 


Q?Q0C1 






CMP 


RQ, 


R1 


18B6 


007504 


PC14G5 






BEO 


73$ 




1887 


007506 


0C4767 


Q1p«i§4 


72$ J 


J$R 


PC, 


SPPNT2 


1688 


007512 


004767 


012122 




JSR 


PC. 


$ERRQR 


1889 


007516 


P00Q07 






,WQRD 


7 




1890 


C07520 






73$? 








1891 


P07520 


005100 






COM 


Rp 




1892 


007522 


0QSM2 






CQM 


"(R2) 




1893 


007524 


P122C1 






MOV 


(R2)+, 


R1 


1894 


007526 


020001 






CMP 


RP. 


' R1 


1895 


00753Q 


P01405, 






,B^0 


75$ 




1896 


007532 


004767 


010630 


74$; 


JSR 


PC, 


SPRNT2 


1897 


007536 


PC4767 


01207? 




JSR 


PC, 


SERROR 


1898 


007542 


000007 






. WORD 


7 




1899 


007544 






75$! 








1900 


007544 


005100 






COM 


RO 




1901 


007546 


0C5142 






COM 


*(R2) 




1902 


007550 


0122C1 






MCV 


(R2)+, 


R1 


1903 


007552 


p; ; qppi 






QMP 


RO, 


R1 


1904 


007554 


001405 






BEO 


77$ 




1905 


QQ7556 


004767 


0106' \ 


76$ i 


J,SR 


PC, 


SPRNT2 


1906 


007562 


004767 


912052 




JSR 


PC, 


SERROR 


1907 


007556 


000007 






.WORD 


7 




1908 


007570 






77$: 








1909 


007570 


005303 






DEC 


R3 




1910 


007572 


0U1342 






BNE 


23$ 




191 1 


007574 


005100 






COM 


RO 




1912 


007576 


005304 






DEC 


R4 




1913 


0Q7600 


001335 






BNE 


22$ 




1914 


007602 


Q05100 






COM 


RP 




1915 


C07604 


030503 






BIT 


R5, 


R2 ; 


1916. 


P07606 


OP1330 






BNE 


21$ 




1917 


007610 


004767 


005370 




JSR 


PC, 


MMUP ; 



.CHECK FOR END OF A BLOCK. 

; BRANCH IF MORE IN CURRENT BLOCK. 

;FIND NEXT BLOCK AND LOOP TO 11$. 



COM, CHECK 3 XOR 9 PATTERN WRITTEN ABOVE 



[INITIALIZE THE MEMORY ADDRESS POINTERS. 
;SET 256. WORD COUNTER 
;SET 4 WORD COUNTER 

;GET THE DMA FROM MEMORY UNDER TEST. 
[COMPARE THE CHECK WORD WITH THE DATA READ. 
; BRANCH OVEP ERROR CALL IF GOOD DATA. 
;SET UP VALUES FOR ERROR PRINTING. 
:* + * ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

COMPLEMENT CHECK WORD 

COMPLEMENT TEST DATA 

GET THE DATA FROM MEMORY UNDER TEST. 

COMPARE THE CHECK WORD WITH THE DATA READ. 

BRANCH OVEP ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 

*** ERROR *** (GO TYPE A MESSAGE) 

ERROR TYPE CODE. 

COMPLEMENT CHECK WORD 

COMPLEMENT TEST DATA 

GET THE DATA FROM MEMORY UNDER TEST. 

COMPARE THE CHECK WORD WITH THE DATA READ. 

BRANCH OVER ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 

*** ERROR *** (GO TYPE A MESSAGE) 

ERROR TYPE CODE. 

DECREMENT 4 WORD COUNTER 
BR IF NOT DONE. 
COMPLEMENT CHECK WORD 
DECREMENT 256. WORD COUNTER 
BR IF NOT DONE. 
COMPLEMENT CHECK WORD 
CHECK FOR END OF A BLOCK. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 21$. 



CZOMCFO 


0-1 24K MEMORY 


EXERCI 


CZQMCF. 


PI 1 1 


4-FEB-78 


08:19 


1918 








1919 








1920 








1921 


007614 






1922 


007614 


0C4567 


011010 


1923 


007620 


0C0777 




1924 








1925 


007622 


000167 


000316 


1926 








1927 


007626 


012700 


177777 


1928 


007632 


005003 




1929 


007634 


004467 


004566 


1930 


007640 


004767 


006412 


1931 


007644 


020502 




1932 


007646 


001374 




1933 


007650 


004767 


005330 


1934 








1935 








1936 








1937 








1938 








1939 


007654 


012700 


177777 


1940 


007660 


004467 


004542 


1941 


007664 


012704 


000100 


1942 


007670 






1943 


007670 


01 2201 




1944 


007672 


020001 




1945 


007674 


001405 




1946 


007575 


004767 


010464 


1947 


007702 


004767 


011732 


1948 


007706 


000007 




1949 


007710 






1950 


007710 


0". 2201 




1951 


007712 


0200G1 




1952 


007714 


001405 




1953 


007716 


004767 


010444 


1954 


007722 


004767 


011712 


1955 


007726 


000007 




1956 


007730 






1957 


007730 


01 2201 




1958 


007732 


020001 




1959 


007734 


0014C5 




1960 


007736 


004767 


010424 


1961 


007742 


0047'-7 


011672 


1962 


007746 


000007 




1963 


007750 






1964 


007750 


01 2201 




1965 


007752 


C20001 




1966 


007754 


001405 




1967 


007756 


004767 


010404 


1968 


007762 


CM767 


011652 


1969 


007766 


000007 




1970 


007770 






1971 


007770 


005100 




1972 


007772 


005304 




1973 


007774 


001335 





16K VER 

T14 



MACY11 30A(1052) 20-FE8-78 07=56 
COMPLEMENT 3 XOR 9 TEST PATTERN 



COMPLEMENT 3 XOR 9 TEST PATTERN 



JSR R5, SSCOPE 
.WORD 777 



MOV 
CLR 
JSR 
JSR 
BIT 
BNE 
JSR 



INITMM 
W3X9 



R5, 
1S 
PC, 



; ; ** 


******** .<** 


******* 


******** 


; * 


CHECK COWIPL 


EMENTED 


3 XOR 9 


; » ** 


*********** 


******* 


******** 




MOV 


#-1 , 


RO 




JSR 


R4, 


INITMM 


11$: 


MOV 


#64., 


R4 


12$: 










MOV 


(R2)+, 


R1 




CMP 


RO, 


R1 




BEO 


65$ 




64$: 


JSR 


PC, 


SPRNT2 




JSR 


PC, 


SERROR 




.WORD 


7 




655 : 










MOV 


(R2)+, 


R1 




CMP 


RO, 


R1 




BEO 


67$ 




665 : 


JSR 


PC, 


SPRNT2 




JSR 


?c, 


3.ERR0R 




.WORD 


7 




67S: 










MOV 


(R2)+, 


R1 




CMP 


RO, 


R1 




BEO 


69$ 




68$: 


JSR 


PC, 


SPRNT2 




JSR 


PC, 


SERROR 




.WORD 


7 




69$: 










MOV 


(R2)+, 


R1 




Cf ■"> 


RO, 


R1 




BEO 


71$ 




70$: 


JSR 


PC, 


SPRNT2 




JSR 


PC, 


SERROR 




.WORD 


7 




71$: 










COM 


RO 






DEC 


R4 






BNE 


12$ 





;G0 TO SCOPE ROUTINE. 

{MINIMUM BLOCK SIZE OF 256. WORDS 

; REQUIRED FOR THIS TEST. 

;SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 

; AVAILABLE FOR TEST. 

{SET UP TEST DATA 

;SET COM DATA REG 

{INITIALIZE THE MEMORY ADDRESS POINTERS. 

{WRITE 256. WORD BLOCK WITH 3 XOR 9 PAT. 

;CHECK FOR END OF A BLOCK. 

;BRANCH IF MORE IN CURRENT BLOCK. 

;FIND NEXT BLOCK AND LOOP TO 1$.' 



TEST PATTERN WRITTEN ABOVE. 

;SET CHECK WORD 

; INITIALIZE THE MEMORY ADDRESS POINTERS. 

;SET 256. WORD COUNTER 

;GET THE DATA FROM MEMORY UNDER TEST. 
{COMPARE THE CHECK WORD WITH THE DATA READ. 
{BRANCH OVER ERROR CALL IF GOOD DATA. 
{SET UP VALUES FOR ERROR PRINTING. 
;*** ERROR *** (GO TYPE A MESSAGE) 
{ERROR TYPE CODE. 

{GET THE DATA FROM MEMORY UNDER TEST. 
{COMPARE THE CHECK WORD WITH THE DATA READ. 
{BRANCH OVER ERROR CALL IF GOOD DATA. 
{SET UP VALUES FOR ERROR PRINTING. 
;«** ERROR *** (GO TYPE A MESSAGE) 
{ERROR TYPE CODE. 

{GET THE DATA FROM MEMORY UNDER TEST. 
{COMPARE THE CHECK WORD WITH THE DATA READ. 
{BRANCH OVER ERROR CALL IF GOOD DATA. 
{SET UP VALUES FOR ERROR PRINTING. 
;*** ERROR *** (GO TYPE A MESSAGE) 
{ERROR TYPE CODE. 

{GET THE DATA FROM MEMORY UNDER TEST. 
{COMPARE THE CHECK WORD WITH THE DATA READ. 
{BRANCH OVER ERROR CALL IF GOOD DATA. 
{SET UP VALUES FOR ERROR PRINTING. 
{*** ERROR *** (GO TYPE A MESSAGE) 
{ERROR TYPE CODE. 



{COMPLEMENT CHECK WORD 
{DECREMENT 256. WORD COUNTER 



CZOMCFO 


0-124K MEMORY 


EXERCIJ 


CZQMCF. 


P11 14-FEB-78 


08:19 


1974 


007776 


005100 




1975 


010000 


030502 




1976 


010002 


001330 




1977 


010004 


004767 


005174 


1978 








1979 








19S0 








1981 








1982 


010010 


01 2700 


177777 


1983 


010014 


004467 


004406 


1984 


010020 


012704 


000100 


1985 


010024 


0127C3 


000004 


1986 


010030 






19p7 


010030 


01 2201 




1988 


010032 


020001 




1989 


010C34 


001405 




1990 


010036 


004767 


010324 


1991 


010042 


004767 


011572 


1992 


010046 


000007 




1993 


010050 






1994 


010050 


005100 




1995 


010052 


005142 




1996 


010054 


012201 




1997 


010056 


0200^1 




1998 


010060 


C01405 




1999 


010062 


004767 


010300 


2000 


010066 


004767 


011546 


2001 


010072 


000007 




2002 


010074 






2003 


010074 


00 5100 




2004 


010076 


C 5142 




2005 


010100 


012201 




2006 


010102 


020001 




2007 


010104 


0014C5 




2008 


010106 


004767 


010254 


2009 


0101 12 


0C4767 


011522 


2010 


0101 16 


0000C7 




201 1 


010120 






2012 


010120 


005303 




2013 


010122 


001342 




2014 


010124 


005100 




2015 


010126 


005304 




2016 


010130 


001335 




2017 


010132 


005100 




2018 


010134 


030502 




2019 


010136 


001330 




2020 


010140 


004767 


005040 



16K VER 
T14 



MACY11 30A(1052) 
COMPLEMENT 3 XOR 



20-FEP-78 07:56 
9 TEST PATTERN 



COM 
BIT 
BNE 
JSR 



11$ 
PC, 



{COMPLEMENT CHECK WORD 
{CHECK FOR END OF A BLOCK. 
{BRANCH IF MORE IN CURRENT BLOCK. 
{FIND NEXT BLOCK AND LOOP TO 11$. 



CHECK, COM, CHECK, COM, CHECK COMPLEMENTED 3 XOR 9 PATTERN. 



21$: 
22$: 
23$: 



MOV 
JSR 
MOV 



MOV 
CMP 
BEO 
JSR 
JS-T 
.WORD 

COM 
COM 
MOV 
CMP 
BEO 
JSR 
JSR 
.WJRD 

COM 
COM 
MCV 
CMP 
BEO 
JSR 
JSR 
.WORD 

DEC 
BNE 

COM 
DEC 

BNE 
COM 



73$ 
PC, 



RO 



-(R2) 

(R2)+. 

RO, 

75$ 

PC, 

PC, 



-(R2) 
(R2) + 



BNE 
JSR 



21$ 
PC, 



RO {SET UP CHECK WORD. 

INITMM {INITIALIZE THE MEMORY ADDRESS POINTERS. 

P4 {SET 256. WORD COUNTER 

R3 {SET A WORD COUNTER 

R1 ;GET THE DATA FROM MEMORY UNDER TEST. 

R1 {COMPARE THE CHECK WORD WITH THE DATA READ. 

{BRANCH OVER ERROR CALL IF GOOD 'DATA. 
SPRNT2 {SET UP VALUES FOR ERROR PRINTING. 
SERROR {*** ERROR *** (GO TYPE A MESSAGE) 

{ERROR TYPE CODE. 

{COMPLEMENT CHECK WORD 

{COMPLEMENT TEST DATA 
R1 {GET THE DATA FROM MEMORY UNDER TEST. 
R1 {COMPARE THE CHECK WORD WITH THE DATA READ. 

{BRANCH OVER ERROR CALL IF GOOD DATA. 
SPRNT2 {SET UP VALUES FOR ERROR PRINTING. 
SERROR ;*** ERROR *** (GO TYPE A MESSAGE) 

{ERROR TYPE CODE. 

{COMPLEMENT CHECK WORD 

{COMPLEMENT TEST DATA 
R1 ;GET THE DATA FROM MEMORY UNDER TEST. 
R1 {COMPARE THE CHECK WORD WITH THE DATA READ. 

{BRANCH OVEP ERROR CALL IF GOOD DATA. 
SPuNT2 {SET UP VALUES FOR ERROR PRINTING. 
SERROR ;*** ERROR *** (GO TYPE A MESSAGE) 

{ERROR TYPE CODE. 

{DECREMENT 4 WORD COUNTER 

; BR IF NOT DONE. 

{COMPLEMENT CHECK WORD 

{DECREMENT 256. WORD COUNTER 

; BR IF NOT DONE. 

{COMPLEMENT CHECK WORD 
R2 {CHECK FOR END OF A BLOCK. 

{BRANCH IF MORE IN CURRENT BLOCK. 
MMUP {FIND NEXT BLOCK AND LOOP TO 21$. 



CZQMCFO 0-124K MEMORY EXERCISER, 
CZQMCF.P11 14-FEB-7S 08:19 



FOR PARITY M E MO Rf 



2021 








2022 








2023 








2024 


010144 






2025 


010144 


004567 


010460 


2026 


010150 


000777 




2027 








2028 


0101 52 


00 0167 


000610 


2029 








2030 


010156 


Oi 2700 


000401 


2031 


010162 


01 2703 


177777 


2032 


010166 


00 4467 


004234 


2033 


010172 


004767 


006060 


2034 


010176 


030502 




2035 


010200 


001374 




2036 


010202 


004767 


004776 


2037 








2038 








2039 








2040 








2041 


010206 


01 2700 


000401 


2042 


010212 


0127C3 


177777 


2043 


010216 


004467 


004204 


2044 


010222 


01 2704 


000100 


2045 


010226 






2046 


010226 


Oi 2201 




2047 


010230 


020001 




2048 


010232 


0014C5 




2049 


010234 


004767 


010126 


2050 


010240 


004767 


01 1374 


2051 


010244 


000007 




2052 


010246 






2053 


010246 


01 22C1 




2054 


010250 


020001 




2055 


010252 


00 1 405 




2056 


010254 


004767 


010106 


2057 


010260 


004767 


01 1354 


2058 


010264 


0C00C7 




2059 


010266 






2060 


010266 


01 2201 




2061 


010270 


020001 




2062 


010272 


00 1405 




2063 


010274 


004767 


010066 


2064 


010300 


0047-7 


01 1334 


2065 


0103C4 


000007 




2066 


010305 






2067 


010306 


01 2201 




2068 


010310 


020001 




2069 


010312 


001405 




2070 


010314 


004767 


010046 


2071 


010320 


0?4767 


01 1314 


2072 


010324 


000007 




2073 


010326 






2074 


010326 


01 0046 




2075 


010330 


010300 




2076 


010332 


012603 





MODIFIED 3 XOR 



PATTERN FOP PARITY MEMORY 



-WORD 



MOV 
MOV 
dSR 
JSR 



nimu? 


BLOCK S 


EO'JIF 


ED 


FOR T 


IP T C 


NF 


XT TE 


VA1 LA 


8 IE 


FOR 


T UP 


PAt 


ITY " 


T CO f , 


DATA RE 


ITIAL 


IZF 


THE 


ITE 2 


56 


WORD 


ECK F 


OR 


END 


ANCH 


IF 


MORE 


ND NEXT 


BLOCK 



TINE. 

I2E OF 256. W0RD5 

HIS TEST. 

ST WHEN LESS THAN ONE BLOCK 

TEST. 

ALL ZEROS" PATTERN 

MEMORY ADDRESS POINTERS. 

BLOCK WITH 3 XOR 9 PAT. 
F A BLOCK. 
IN CURRENT BLOCK. 

AND LOOP TO 1$. 






CHECK PARITY 3 XOR 9 PATTERN WRITTEN ABOVE. 



11$: 
12$: 



MOV 
MOV 
JSR 

MOV 

MOV 
CMP 
BEO 
JSR 
JSR 
.WORD 

MOV 
CMP 
BEO 
JSR 
JSR 
.WORD 

MOV 
CMP 
BEO 
JSR 
JSR 
.WORD 

MOV 

c: 3 

BEO 

JSR 



#401 , 


RO 


ti-\ , 


R3 


R4, 


INITMM 



65$ 
PC, 
PC, 



(R2) + 

RO, 

67S 



(R2) + 

RO, 

69$ 

PC, 

PC, 



(R2) + 

RO, 

71$ 



SPRNT2 
SERROR 



SPRNT2 
SERROR 



SPRNT2 
SERROR 



SPRNT2 
SERROR 



MOV 
MOV 
MOV 



;RESET PARITY "ALL ZEROS" PATTERN. 
;RESET PARITY ALL ONES PATTERN. 
; INITIALIZE THE MEMORY ADDRESS POINTERS. 
;SET 256. WORD COUNTER 

;GET THE DATA FROM MEMORY UNDER TEST. 

;COMPARE THE CHECK WORD WITH THE DATA READ. 

; BRANCH OVEF ERROR CALL IF GOOD DATA. 

;SET UP VALUES FOR ERROR PRINTING. 

;*** ERROR *** (GO TYPE A MESSAGE) 
;£RROR TYPE CODE. 

;GET THE DATA FROM MEMORY UNDER TEST. 

; COMPARE THE CHECK WORD WITH THE DATA READ. 

; BRANCH OVER ERROR CALL IF GOOD DATA. 

;SET UP VALUES FOR ERROR PRINTING. 

;*** ERROR *** (GO TYPE A MESSAGE) 

;ERROR TYPE CODE. 

;GET THE DATA FROM MEMORY UNDER TEST. 

; COMPARE THE CHECK WORD WITH THE DATA READ. 

; BRANCH OVER ERROR CALL IF GOOD DATA. 

;SET U? VALUES FOR ERROR PRINTING. 

;•-*** ERROR *** (GO TYPE A MESSAGE) 

; ERROR TYPE CODE. 

;GET THE DATA FROM MEMORY UNDER TEST. 

; COMPARE THE CHECK WORD WITH THE DATA READ. 

; BRANCH OVER ERROR CALL IF GOOD DATA. 

;SET UP VALUES FOR ERROR PRINTING. 

;*** ERROR *** (GO TYPE A MESSAGE) 

; ERROR TYPE CODE. 

;SAVE RO 

;PUT R3 INTO RO 

;PUT SAVED RO INTO R3 



CZOMCFO 


0-124 


K MEMORY 


EXERCISER, 16K VER 


CZQMCF. 


P1 1 1 


4-FE3-78 


08M9 


T15 


2077 


010334 


0C5304 






2078 


010335 


00 1333 






2079 


010340 


Oi 0046 






2080 


010342 


01 03C0 






2081 


010344 


012503 






20B2 


01 0346. 


030502 






20B3 


010350 


001324 






2084 


010352 


004767 


004626 




2085 










2086 








; ; * 


2087 








; * 


2088 








; ; * 


2089 


010356 


01 2700 


000401 




2090 


010362 


01 2703 


1 77777 




2091 


01 0366 


004467 


004034 




2092 


010372 


0^2704 


000100 


21$ 


2093 


010376 






22S 


2094 


010376 


01 2201 






2095 


010400 


0200C1 






2096 


010402 


0C1405 






2097 


0104 04 


004767 


007756 


72S 


2098 


010410 


004767 


01 1 224 




2099 


010^14 


000007 






2100 


010416 






73$ 


2101 


010416 


005100 






2102 


010420 


005142 






2103 


010422 


01 2201 






2104 


010424 


020001 






2105 


010426 


001405 






2106 


010430 


004767 


007732 


74S 


2107 


010434 


C 4767 


01 1200 




2108 


010440 


000007 






2109 


010442 






75$ 


2110 


010442 


00 5100 






21 1 1 


010444 


00 5142 






2112 


010446 


0122C1 






21 13 


010450 


02 0001 






21 14 


010452 


00 1405 






2115 


01C454 


004767 


007706 


76S 


21 16 


010450 


CC4767 


01 1 154 




21 17 


0104 64 


000007 






21 18 


010466 






77S 


21 19 


010466 


01 2201 






2120 


010470 


C200C1 






2121 


010472 


CO 1405 






2122 


010474 


004767 


007666 


78$ 


2123 


010500 


00 4 767 


01 1 134 




2124 


010504 


000007 






2125 


010506 






79S 


2126 


01C506 


0C5100 






2127 


010510 


0051-2 






2128 


010512 


Oi 22C1 






2129 


010514 


02 0001 






2130 


010516 


00 1405 






2131 


010520 


004767 


007642 


80$ 


2132 


010524 


004767 


011110 





MACYli 30A(1052) 20-FEP-78 07:56 PAGE 45 
MODI r" I ED 3 XOR 9 PATTERN FOR PARITY MEMORY 



DEC 
BNE 
MOV 
MOV 
MOV 
BIT 
BNE 



COUNT 256. WORDS 

BRANCH IF MORE 

SAVE RO 

PUT R3 INTO RO 

PUT SAVED PO INTO R3 

CHECK FOR END OF A BLOCK. 

BRANCH IF MORE IN CURRENT BLOCK. 

FIND NEXT BLOCK AND LOOP TO 11$. 



CHECK, COM, CHECK, COM, CHECK PARITY 3 XOR 9 PATTERN. 



MOV 


#401 , 


RO 


MOV 


#-1 , 


R3 


JSR 


R4, 


INITMM 


MOV 


^64. ,R4 




MC ' 


(R2)+, 


R1 


CMP 


RO, 


R1 


BEQ 


73$ 




JSR 


PC, 


SPRNT2 


JSR 


PC, 


SERROR 


.WORD 


7 




COM 


RO 




COM 


-(R2) 




MOV 


(R2)+, 


R1 


Cl. r> 


RO, 


R1 


BEO 


75$ 




JSR 


PC, 


SPRNT2 


JSR 


PC, 


SERROR 


.WORD 


7 




COM 


RO 




COM 


-(R2) 




MOV 


(R2)+, 


R1 


CMP 


RO, 


R1 


BEQ 


77$ 




JSR 


PC, 


SPRNT2 


JSR 


PC, 


SERROR 


.WORD 


7 




MOV 


(R2)+, 


R1 


CMP 


RO, 


R1 


BEQ 


79$ 




JSR 


PC, 


SPRNT2 


JSR 


PC, 


SERROR 


.WORD 


7 




COM 


RO 




COM 


~(R2) 




MOV 


(R2)+. 


R1 


CMP 


RO, 


R1 


BEO 


81$ 




JSR 


PC, 


SPRNT2 


JSR 


PC, 


SERROR 



SET UP PARITY "ALL ZEROS" PATTERN. 
SET UP ALL ONES PATTERN. 

INITIALIZE THE MEMORY ADDRESS POINTERS. 
SET 255. WORD COUNTER 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

COMPLEMENT CHECK WORD 

COMPLEMENT TEST DATA 

GET THE DATA FROM MEMORY UNDER TEST. 

COMPARE THE CHECK WORD WITH THE DATA READ. 

BRANCH OVER ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 

*** ERROR *** (GO TYPE A MESSAGE) 

ERROR TYPE CODE. 

COMPLEMENT CHECK WORD 

RESTORE DATA 

GET THE DATA FROM MEMORY UNDER TEST. 

COMPARE THE CHECK WORD W I'. A THE DATA READ. 

BRANCH OVER ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 

*** ERROR *** (GO TYPE A MESSAGE) 

ERROR TYPE CODE. 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ- 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

COMPLEMENT CHECK WORD 

COMPLEMENT TEST DATA 

GET THE DATA FROM MEMORY UNDER TEST. 

COMPARE THE CHECK WORD WITH THE DATA READ. 

BRANCH OVER ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 

*** ERROR *** (GO TYPE A MESSAGE) 



CZOMCFO 0-124K MEMORY EXERCISER, 1 6K VER 
C20MCF.P11 14-FEB-78 08:19 T15 



; 



MA~Y11 30A(1052) 20-FEB-78 07:56 PAGE 46 
MODIFIED 3 XOR 9 PATTERN FOR PARITY MEMORY 



ERROR TYPE CODE. 



idM 



2133 


01C530 


000007 






.WORD 


7 




2134 


010532 






81$: 








2135 


010532 


005100 






COM 


RO 




2136 


010534 


0C5K-2 






COM 


-(R2) 




2137 


010536 


012201 






MOV 


(R2)+, 


R1 


2138 


010540 


020001 






CMP 


RO, 


R1 


2139 


010542 


001405 






BEQ 


83$ 




2140 


010544 


004767 


007616 


82$: 


df ! 


PC, 


SPRNT2 


2141 


010550 


0C4767 


011064 




JSR 


PC, 


SERROR 


2142 


010554 


000007 






• WORD 


7 




2143 


010556 






83$: 








2144 


010556 


Oi 2201 






MOV 


(R2J+, 


R1 


2145 


010560 


020001 






CMP 


RO, 


R1 


2146 


010562 


001405 






BEO 


85$ 




2147 


010564 


004767 


007576 


84$: 


JSR 


PC, 


SP - -NIT2 


2148 


010570 


004767 


011044 




JSR 


PC, 


SERROR 


2149 


010574 


000007 






.WORD 


7 




2150 


010576 






85$: 








2151 


010576 


0C51C0 






COM 


RO 




2152 


010600 


005142 






COM 


-(R2) 




2153 


010602 


012201 






MOV 


(R2)+, 


R1 


2154 


010604 


020001 






CMP 


RO, 


R1 


2155 


010606 


001405 






BEO 


87$ 




2156 


010610 


C04767 


007552 


86$: 


JSR 


PC, 


SPRNT2 


2157 


010614 


004767 


011020 




JSR 


PC, 


SERROR 


2158 


010620 


000007 






.WORD 


7 




2159 


010622 






87$: 








2160 


010622 


005100 






COM 


RO 




2161 


010624 


00 5142 






COM 


-(R2) 




2162 


010626 


0-2201 






MOV 


(R2)+, 


R1 


2163 


01 0630 


020001 






CMP 


RO, 


R1 


2164 


010532 


001405 






BEO 


89$ 




2165 


010634 


004767 


007526 


88$: 


JSR 


PC, 


SPRNT2 


2166 


010640 


004767 


0107'; % 




JSR 


PC, 


SERROR 


2167 


010644 


000007 






.WORD 


7 




2168 


010546 






89$: 








2169 


010646 


012201 






MOV 


(R2)+, 


R1 


2170 


010650 


020001 






CMP 


RO, 


R1 


2171 


010652 


001405 






BEO 


91$ 




2172 


010654 


004767 


007506 


90$: 


JSR 


PC, 


SPRNT2 


2173 


010660 


004767 


010754 




JSR 


PC, 


SERROR 


2174 


010664 


000007 






.WORD 


7 




2175 


010666 






91$: 








2176 


010666 


005100 






COM 


RO 




2177 


010670 


005142 






COM 


"(R2) 




2178 


010672 


0-12201 






MOV 


(R2)+, 


R1 


2179 


010674 


020001 






CMP 


RO, 


R1 


2180 


010676 


001405 






BEO 


93$ 




2181 


010700 


004767 


007462 


92$: 


JSR 


PC, 


SPRNT2 


2182 


010704 


004767 


010730 




JSR 


PC, 


SERROR 


2183 


010710 


000007 






.WORD 


7 




2184 


010712 






93$: 








2185 


010712 


005100 






COM 


RO 




2186 


010714 


00 5142 






COM 


-(R2) 




2187 


010716 


012201 






MOV 


(R2)+, 


R1 


2188 


010720 


020001 






CMP 


RO, 


R1 



COMPLEMENT CHECK WORD 

RESTORE DATA 

GET THE DATA FROM MEMORY UNDER TEST. 

COMPARE THE CHECK WORD WITH THE DATA READ. 

BRANCH OVER ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 

*** ERROR *** (GO TYPE A MESSAGE) 

ERROR TYPE CODE. 

GET THE DATA FROM MEMORY UNDER TEST. 

COMPARE THE CHECK WORD WITH THE DATA READ. 

BRANCH OVER ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 

*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

COMPLEMENT CHECK WORD 

COMPLEMENT TEST DATA 

GET THE DATA FROM MEMORY UNDER TEST. 

COMPARE THE CHECK WORD WITH THE DATA READ. 

BRANCH OVER ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 

*** ERROR *** (GO TYPE A MESSAGE) 

ERROR TYPE CODE. 

COMPLEMENT CHECK WORD 

RESTORE DATA 

GET THE DATA FROM MEMORY UNDER TEST. 

COMPARE THE CHECK WORD WITH THE DATA READ. 

BRANCH OVER ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 

*** ERROR *** (GO TYPE A MESSAGE) 

ERROR TYPE CODE. 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVEP ERROR CALL IF GOOD DATA. 
SET UP VALUES FO". ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

COMPLEMENT CHECK WORD 

COMPLEMENT TEST DATA 

GET THE DATA FROM MEMORY UNDER TEST. 

COMPARE THE CHECK WORD WITH THE DATA READ. 

BRANCH OVER ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 

*** ERROR *** (GO TYPE A MESSAGE) 

ERROR TYPE CODE. 

COMPLEMENT CHECK WORD 

RESTORE DATA 

GET THE DATA FROM MEMORY UNDER TEST. 

COMPARE THE CHECK WORD WITH THE DATA READ. 



C20MCF0 0-1 24K MEMORY EXERCISER, 
CZQMCF.P11 14-FEB-78 08:19 



16K VER 
T15 



MACY11 30A(1052) 20-FEB-78 07:56 PAGE 47 
MODIFIED 3 XOR 9 PATTERN FOR PARITY MEMORY 
































2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
221 1 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2233 
2239 
2240 
2241 
2242 
2243 
2244 



010722 

010724 
010730 
010734 
010736 
010736 
010740 
010742 
010744 
010746 
010750 
010752 
010754 
010756 
010760 
010762 



011000 
01 1004 
011010 
011014 
01 1020 
01 1022 
01 1024 



01 1030 
01 1034 
01 1040 
01 1044 
01 1050 
01 1050 
01 1052 
01 1054 
011C56 
011062 
01 1066 
01 1070 
01 1070 
011072 
01 1074 
01 1076 
01 1 102 
01 1 106 
011110 



001405 
004767 
004767 

000007 

010046 
01 0300 
01 2603 
005304 
CC 1213 
010045 
01 0300 
01 2603 
020502 
0C12C4 
004767 



007^35 
010704 



010766 

010766 004567 007636 

010772 000777 

010774 000167 000610 



177777 
000401 
003412 
005236 



012700 
012703 
004467 
0C4767 
030502 
001374 
004767 



0I2700 177777 

012703 000401 
004467 003362 

012704 000100 



01 2201 
0200 r .1 
00 14 05 
004767 
004767 
CC0007 



012201 
0"0001 
00 1405 
004767 
004767 
000007 



007304 
010552 



007264 
010532 



BEO 
JSR 
JSR 
.WORD 

MOV 
MOV 
MOV 
DEC 
BNE 
MOV 
MOV 
MOV 
BIT 
BNE 
JSR 



95$ 
PC, 
PC, 
7 



R4 

22$ 

RO, 

R3, 

(SP)+, 

R5, 

21$ 



SPRNT2 
SERROR 



-(SP) 
RO 



PC, 



COMPLEMENT PARK .' 



MOV 


#-1 , 


RO 


MOV 


#401 , 


R3 


JSR 


R4. 


IN1TMM 


JSR 


PC, 


W3X9 


BIT 


R5, 


R2 


BNE 


1$ 




JSR 


PC, 


MMUP 



BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

SAVE RO 

PUT R3 INTO RO 

PUT SAVED PO INTO R3 

DECREMENT 256. WORD COUNTER 

BRANCH IF MORE. 

SAVE RO 

PUT R3 INTO RO 

PUT SAVED PO INTO R3 

CHECK FOR END OF A BLOCK. 

BRANCH IF IVORE IN CURRENT BLOCK. 

FIND NEXT BLOCK AND LOOP TO 21$. 



3 XOR 9 TEST PATTERN. 

GO TO SCOPE ROUTINE. 

MINIMUM BLOCK SIZE OF 256. WORDS 

REQUIRED FOR THIS TEST. 
SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 

AVAILABLE FOR TEST. 
SET UP ALL ONES PATTERN 
SET UP PARITY "ALL ZEROS" PATTERN 
INITIALIZE THE MEMORY ADDRESS POINTERS. 
WRITE 256. WORD BLOCK WITH 3 XOR 9 PAT. 
CHECK FOR END OF A BLOCK. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 1$. 



CHECK C.1-/IPLEMENT PARITY 3 XOR 9 PATTERN WRITTEN ABOVE. 





MOV 


tt-\ , 


RO 




MOV 


^401 , 


R3 




JSR 


R4, 


INITMM 


115. 


MOV 


#64. , 


R4 


12$: 










MOV 


(R2)+, 


R1 




CMP 


RO, 


R1 




BEO 


65$ 




64S: 


JSR 


PC, 


SPRNT2 




JSR 


PC, 


SERROR 




.'.ORD 


7 




65$: 










MOV 


(R2)+, 


R1 




CMP 


RO, 


R1 




BEQ 


67$ 




66$: 


JSR 


PC, 


SPRNT2 




JSR 


PC, 


SER. OR 


67$: 


.WORD 


7 





SET UP ALL ONES PATTERN 
SET UP PARITY "ALL ZEROS" PATTERN 
INITIALIZE THE MEMORY ADDRESS POINTERS. 
SET 256. WORD COUNTER 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVEP ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVEP ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 



CZQMCFO 


0-1 24K MEMORY 


EXERCISER, 1 


6K VER 


CZQMCF. 


PI 1 


4-FE3-78 


08: 19 


T16 


2245 


011110 


01 2201 






2246 


011112 


0200C1 






2247 


011114 


0C1405 






2248 


011116 


004767 


007244 


68$ 


2249 


01 1 1 22 


004767 


010512 




2250 


01 1 126 


000007 






2251 


01 1 130 






69$ 


2252 


01 1 1 30 


01 2201 






2253 


01 1 132 


020001 






2254 


01 1 134 


00 1405 






2255 


01 1 136 


004767 


007224 


70S 


2256 


01 1 142 


004767 


010472 




2257 


01 1 146 


000007 






2258 


01 1 150 






71$ 


2259 


01 1 150 


01 0046 






2260 


01 1 152 


01 0300 






2261 


01 1 154 


01 2503 






2262 


01 1 155 


005304 






2263 


01 1 160 


00 1333 






2264 


01 1162 


01 0046 






2265 


01 1 164 


010300 






2266 


01 1 166 


01 2603 






2267 


01 1 170 


030502 






2268 


01 1 172 


0013^4 






2269 


01 1 174 


004767 


004004 




2270 










2271 








; ; * 


2272 








; * 


2273 








. . „. 


2274 


01 1200 


012700 


177777 




2275 


01 1204 


0- 27C3 


000401 




2276 


011210 


004467 


003212 




2277 


011214 


01 2704 


000100 


21$ 


2278 


01 1220 






22S 


2279 


01 1220 


01 2201 






2280 


01 1222 


020001 






2281 


01 1224 


0014C5 






2282 


01 1226 


004767 


007134 


72$ 


2283 


01 1232 


004767 


010402 




2284 


01 1236 


000007 






2285 


01 1240 






73$ 


2286 


01 1240 


005100 






2287 


01 1242 


005142 






2288 


01 1244 


01 2201 






^289 


011246 


020001 






2290 


01 1250 


001405 






2291 


01 1252 


004767 


0071 10 


74$ 


2292 


01 1256 


004767 


010356 




2293 


01 1262 


000007 






2294 


01 1264 






75$ 


2295 


01 1264 


005100 






2296 


01 1266 


00 51 -12 






2297 


01 1270 


01 2201 






2298 


01 1272 


020001 






2299 


01 1274 


C01405 






2300 


01 1276 


004767 


007064 


76$ 
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GET THE DATA FROM MEMORY UNDER TEST. 

COMPARE THE CHECK WORD WITH THE DATA READ, 

BRANCH OVEF ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 

*** ERROR *** {GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

SAVE RO 

PUT R3 INTO RO 

PUT SAVED PO INTO R3 

COUNT 256. WORDS 

BRANCH IF MORE 

SAVE RO 

PUT R3 INTO RO 

PUT SAVED FO INTO R3 

CHECK FOR END OF A BLOCK. 

BRANCH IF MORE IN CURRENT BLOCK. 

FIND NEXT BLOCK AND LOOP TO 11$. 



CHECK, COM, CHECK, COM, CHECK COMPLEMENTED PARITY 3 XOR 9 PATTERN. 



MOV 


(R2)+, 


R1 


CMP 


RO, 


R1 


BEQ 


69$ 




JSR 


PC, 


SPRNT2 


JSR 


PC, 


SERROR 


.WORD 


7 




MOV 


(R2)+, 


R1 


CMP 


RO, 


R1 


BEO 


71$ 




JSR 


PC, 


SPRNT2 ; 


usr 


PC, 


SERROR ■ 


.WORD 


7 




MOV 


RO, 


-(SP) ; 


MOV 


R3, 


fQ 


MOV 


(SP)+, 


R3 


DEC 


R4 




BNE 


12$ 




MOV 


RO, 


-(SP) ! 


MOV 


R3, 


RO ; 


MOV 


(SP)+, 


R3 


BIT 


R5, 


R2 ; 


BNE 


1 1$ 




JSR 


PC, 


MMUP ; 



MOV 


#-1 , 


RO 


MOV 


#401 , 


R3 


JSR 


R4, 


INITMM 


MOV 


#64. ,R4 




MOV 


(R2)+, 


R1 


CMP 


RO, 


R1 


BEQ 


73$ 




JSR 


PC, 


SPRNT2 


JSR 


PC, 


SERROR 


.WORD 


7 




COM 


RO 




COM 


-(R2) 




MOV 


(R2)+, 


R1 


CMP 


RO, 


R1 


BEQ 


75$ 




JSR 


PC, 


SPRNT2 • 


JSR 


PC, 


SERROR ; 


.WORD 


7 




COM 


RO 




COM 


-(R2) 




MOV 


(R2)+, 


R1 ; 


CMP 


RO, 


R1 ; 


BEO 


77$ 




JSR 


PC, 


SPRNT2 ; 



SET UP ALL ONES PATTERN 
SET UP PARITY "ALL ZEROS" PATTERN 
INITIALIZE THE MEMORY ADDRESS POINTERS. 
SET 256. WORD COUNTER 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

COMPLEMENT CHECK WORD 

COMPLEMENT TEST DATA 

GET THE DATA FROM MEMORY UNDER TEST. 

COMPARE THE CHECK WORD WITH THE DATA READ. 

BRANCH OVER ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 

*** ERROR *** (GO TYPE A ME5SAGE) 

ERROR TYPE CODE. 

COMPLEMENT CHECK WORD 

RESTORE DATA 

GET THE DATA FROM MEMORY UNDER TEST. 

COMPARE THE CHECK WORD WITH THE DATA READ. 

BRANCH OVER ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 



CZOMCFO 0-124K MEMORY EXERCISER, 1 6K VER 
CZQMCF. P11 14-FEB-78 08:19 T16 
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2301 


01 1302 


0C4767 


010332 




JSR 


PC, 


SERROR 


2302 


01 1306 


000007 






.WORD 


7 




2303 


01 1310 






77$: 








2304 


011310 


C1 22C i 






MOV 


(R2)-, 


R1 


2305 


011312 


020001 






CMP 


RO, 


R1 


2306 


011314 


00 1405 






BEQ 


79$ 




2307 


011316 


CC4767 


007044 


78$: 


JSR 


PC, 


SPRNT2 


2308 


01 1322 


004767 


010312 




j: ; 


PC, 


SERROR 


2309 


01 1326 


0C0007 






.WORD 


7 




2310 


01 1330 






79$: 








231 1 


01 1330 


0".5100 






COM 


RO 




2312 


01 1332 


005142 






COM 


-(R2) 




2313 


01 1334 


01 2201 






MOV 


(R2)+, 


R1 


2314 


01 1336 


020001 






CMP 


RO, 


R1 


2315 


01 1340 


00 1405 






BEQ 


81$ 




2316 


01 1342 


0C4767 


007020 


80$: 


JSR 


PC, 


SPRNT2 


2317 


01 1346 


004767 


010266 




JSR 


PC, 


SERROR 


2318 


01 1352 


0C00C7 






.WORD 


7 




2319 


01 1354 






81$: 








2320 


01 1354 


005100 






COM 


RO 




2321 


01 1356 


00 5142 






COM 


"(R2) 




2322 


01 1360 


01 2201 






MOV 


(R2)+, 


R1 


2323 


01 1362 


02 0001 






CMP 


RO, 


R1 


2324 


01 1364 


00 1405 






BEQ 


83$ 




2325 


01 1366 


0C4767 


006774 


82$: 


JSR 


PC, 


SPRNT2 


2326 


01 1372 


0C4767 


010242 




JSR 


PC, 


SERROR 


2327 


01 1375 


000007 






.WORD 


7 




2328 


01 1400 






83$: 








2329 


01 1400 


01 2201 






MOV 


(R2)+, 


R1 


2330 


01 1402 


020001 






CMP 


RO, 


R1 


2331 


01 1404 


001405 






BEQ 


85$ 




2332 


01 1406 


0C4767 


006754 


84$: 


JSR 


PC, 


SPRNT2 


2333 


011412 


0C4767 


010222 




JSR 


PC, 


SERROR 


2334 


01 1416 


000007 






.WORD 


7 




2335 


01 1420 






85$: 








2336 


01 1420 


00 5100 






COM 


RO 




2337 


01 1422 


00 5142 






COM 


-(R2) 




2338 


01 1424 


01 22C1 






MOV 


(R2)+, 


R1 


2339 


01 1426 


020001 






CMP 


RO, 


R1 


2340 


01 1430 


001405 






BEQ 


87$ 




2341 


01 1432 


00 4 767 


006730 


86$: 


JSR 


PC, 


SPRNT2 


234 2 


01 14 36 


004767 


010176 




JSR 


PC, 


SERROR 


2343 


01 1442 


00 0007 






.WORD 


7 




2344 


01 1444 






87$: 








2345 


01 1444 


005100 






COM 


RO 




2346 


011446 


0U5142 






COM 


-(R2) 




2347 


01 14 50 


C 2201 






MOV 


(R2)+, 


R1 


2348 


01 1452 


020001 






CMP 


RO, 


R1 


2349 


011454 


00 1405 






BEQ 


89$ 




2350 


01 14 56 


004767 


006704 


88$: 


JSR 


PC, 


SPRNT2 


2351 


01 1462 


004767 


010152 




JSR 


PC, 


SERROR 


2352 


01 14 66 


000007 






.wr<~3 


7 




2353 


01 14 70 






89$: 








2354 


01 1470 


0< 2201 






MOV 


(R2)+, 


R1 


2355 


01 1472 


020001 






CMP 


RO, 


R1 


2356 


01 1474 


001405 






BEQ 


91$ 





*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

GET THE DATA FROM MEMORY UNDER TEST. 

COMPARE THE CHECK WORD WITH THE DATA READ. 

BRANCH OVEP ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 

*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

COMPLEMENT CHECK WORD 

COMPLEMENT TEST DATA 

GET THE DATA FROM MEMORY UNDER TEST. 

CG.1PARE THE CHECK WORD WITH THE DATA READ. 

BRANCH OVEP ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 

*** ERROR *** (GO TYPE A MESSAGE) 

ERROR TYPE CODE. 

COMPLEMENT CHECK WORD 

RESTORE DATA 

GET THE DATA FROM MEMORY UNDER TEST. 

COMPARE THE CHECK WORD WITH THE DATA READ. 

3RANCH OVEP ERROR CALL IF GOOD DATA. 

SET UP VALUES FOP ERROR PRINTING. 

*** ERROR *** (GO TYPE A MESSAGE) 

ERROR TYPE CODE. 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVEP ERROR CALL IF GOOD DATA. 
SET UP VALUES FOP ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

COMPLEMENT CHECK WORD 

COMPLEMENT TEST DATA 

GET THE DATA FROM MEMORY UNDER TEST. 

COMPARE THE CHECK WORD WITH THE DATA READ. 

BRANCH OVEF ERRO'- CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 

**+ ERROR ■*** (GO TYPE A MESSAGE) 

ERROR TYPE CODE. 

COMPLEMENT CHECK WORD 

RESTORE DATA 

GET THE DATA FROM MEMORY UNDER TEST. 

COMPARE THE CHECK WORD WITH THE DATA READ. 

BRANCH OVEP ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 

*** ERROR *** (GO TYPE A MESSAGE) 

ERRC-: TYPE CODE. 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 



■) 






C20MCF0 


0-124 


K V EMORY 


EXERCISER 


CZQMCF. 


PI 1 1 


4-f EB-78 


08: 19 


2357 


01 14 76 


0C4767 


006664 


2358 


01 1502 


0C4767 


010-32 


2359 


01 1506 


0C0007 




2360 


011510 






2361 


01 1510 


005100 




2362 


011512 


0C5142 




2363 


011514 


01 2201 




2364 


011516 


020001 




2365 


01 1 ~: 2 


C:1405 




2356 


01 1522 


0C4767 


006640 


2367 


01 1526 


004767 


010106 


2368 


01 1532 


0C00C7 




2369 


01 1534 






2370 


01 1534 


005100 




2371 


01 1536 


005142 




2372 


01 154Q 


0! 2201 




2373 


01 1542 


020001 




2374 


01 1544 


001405 




2375 


01 1546 


004767 


006614 


2376 


01 1552 


004767 


010062 


2377 


011556 


000007 




2378 


01 1560 






2379 


01 1560 


010046 




2330 


011562 


010300 




2381 


01 1564 


C12603 




2382 


01 1566 


005304 




2383 


011570 


001213 




2384 


01 1572 


01 0046 




2385 


01 1574 


010300 




2386 


01 1576 


0- 2503 




2337 


01 1600 


C20502 




2388 


011602 


001204 




2389 


01 1604 


004767 


003374 



/ER 


MACY1 1 


30A(1052) 20-F 


T16 


COMPLEMENT PARITY 3 XQ 


90S: 


JSR 


PC, 


SPRNT2 




JSR 


PC, 


SERROR 




.WORD 


7 




91$: 










COM 


RO 






CGM 


-(R2) 






MOV 


(R2)+, 


R1 




CMP 


RO, 


R1 




BEO 


93$ 




92$: 


JSR 


PC, 


SPRNT2 




JSR 


PC, 


'ERROR 




.WORD 


7 




93$: 










COM 


RO 






COM 


-(R2) 






MOV 


(R2)+, 


R1 




CMP 


RO, 


R1 




BEO 


95$ 




94$: 


JSR 


PC, 


SPRNT2 




JSR 


PC, 


SERROR 




.WORD 


7 




95$: 










MOV 


RO, 


-'(SP) 




MOV 


R3, 


RO 




MOV 


(SP)+, 


R3 




DEC 


R4 






BNE 


22$ 






MOV 


RO, 


"(SP) 




MOV 


R3, 


RO 




MOV 


(SP)+, 


R3 




BIT 


R5, 


R2 




BNE 


21$ 






JSR 


PC, 


MMU P 



07:56 PAGE 50 
XQR 9 TEST PATTERN. 

;SET UP VALUES FOR ERROR PRINTING. 
;*** ERROR «** (GO TYPE A MESSAGE) 
;ERROR TYPE CODE. 

•.COMPLEMENT CHECK WORD 

; COMPLEMENT TEST DATA 

;GET THE DATA FROM MEMORY UNDER TEST. 

;COMPARE THE CHECK WORD WITH THE DATA READ. 

; BRANCH OVEP ERRCR CALL IF GOOD DATA. 

;SET UP VALUES FOR ERROR PRINTING. 

;*•* ERROR ■*** (GO TYPE A MESSAGE) 

;ERROR TYPE CODE. 

; COMPLEMENT CHECK WORD 

[RESTORE DATA 

;GET THE DATA FROM MEMORY UNDER TE5T, 

;COMPARE THE CHECK WORD WITH THE DATA READ. 

;BRANCH OVEP ERROR CALL IF GOOD DATA. 

;SET UP VALUES FOR ERROR PRINTING. 

;*** ERROR *** (G r . TYPE A MESSAGE) 

;ERROR TYPE CODE. 

;SAVE RO 

-.PUT R3 INTO RO 

;PUT SAVED PO INTO R3 

; DECREMENT 256. WORD COUNTER 

; BRANCH IF MORE. 

;SAVE RO 

;PUT R3 INTO RO 

; PUT SAVED PO INTO R3 

;CHECK FOR END OF A BLOCK. 

; BRANCH IF MORE IN CURRENT BLOCK. 

;FIND NEXT BLOCK AND LOOP TO 21$. 



CZQMCFO 


0-1 24K MEMORY 


EXERCISER, 16K 


CZQMCF. 


P11 14-FEB-78 


08: 19 


2390 








2391 








2392 








2393 








2394 








2395 








2396 








2397 








2393 


011610 






2399 


01 1510 


004567 


007014 


2400 


01 1614 


C - 0000 




2401 


011616 


005767 


170454 


2402 


01 1622 


CO 1404 




2403 


011624 


032777 


000100 167306 


2404 


01 1632 


CC1402 




2405 


01 1534 


000167 


000622 


2406 


01 1540 


0C5000 




2407 


01 1642 " 


004767 


004322 


2408 


01 1546 


0C4467 


002554 


2409 


01 1652 


026767 


167666 167660 


2410 


01 1660 


0C1010 




241 1 


011662 


026767 


167560 167652 


2412 


01 1670 


001004 




2413 


01 1672 


0r05C2 




2414 


01 1674 


00 5202 




2415 


01 1675 


000167 


000540 


2416 


01 1702 


0C4767 


005674 


2417 


01 1705 


004767 


005724 


2418 


01 1712 


010227 


0001 14 


2419 


01 1716 


0C10C4 




2420 


01 1720 


052702 


000004 


2421 


01 1724 


00 0167 


000512 


2422 


01 1730 


1 1 1201 




2423 


01 1732 


00 140 5 




2424 


01 1734 


004767 


006352 


2425 


01 1740 


004767 


007674 


2426 


01 1744 


0C001 1 




2427 


01 1746 






2428 


011746 


1C5067 


167606 


2429 


01 1752 


1 ■• 2700 


000252 


2430 


01 1756 


1-0012 




2431 


01 1760 


016703 


167644 


2432 


011754 


056773 


167622 000000 


2433 


01 1772 


052753 


000001 


2434 


01 1776 


005713 




2435 


012000 


001371 




2436 








2437 


012002 


1 1 0012 




2433 


012004 


01 6703 


167620 


2439 


012010 


0-6733 


167576 


2440 


012014 


0C5713 




2441 


012016 


CC 1374 




2442 


012020 


016737 


167606 000114 


2443 








2444 


012026 


105412 




2445 
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»TEST 17 WORSE CASE NOISE PARITY BYTE TESTING 

* CHECK PARITY MEMORY WITH A SERIES OF BYTE PATTERNS 

* 1) FORCE WRC'JG PARITY IN EACH BYTE OF PARITY MEMORY 

^ 2) READ IT BACK WITH ACTION ENABLE SET, MAKING SURE THAT A TRAP OCCURS 

3) WRITE GOOD PARITY AND MAKE SURE NO TRAP OCCURS WHEN IT IS READ 

4) MAKE SURE THE ERROR ADDRESS BITS (CSR BITS <11-5>) ARE CORRECT 



JSR 

.WORD 

TST 

BEO 

BIT 

BEQ 

JMP 

CLR 

JSR 

JSR 

BIT 

BNE 

BIT 

BNE 

BIS 

INC 

JMP 

JSR 

JSR 

CMP 

BNE 

ADD 

JMP 

MOVB 

BEO 

JSR 

JSR 

.WORD 

CLR& 

MOVB 

MOVB 

MOV 

BIS 

BIS 

TST 

BNE 



MPRX 

1S 

rfswoe, 

21 

TST20 

RO 

PC, 

R4, 

BITPT, 

2$ 

BITPT- 



SETCON 
INITMM 
PMEMAP 

2.PMEMAP+2 



;G0 TO 
;N0 MIN 
ICHECK 
;CR IF 
; CHECK 

§R ip 
;SKIP Tl 

ZERO 

; ROUTIN 

; INITIA 

; CHECK 

;BR IF 



R5, 
R2 

WWPB5 

PC, 

PC, 

R2, 

3$ 

tf4, 

WWPB5 

(R2), 

65$ 

PC, 

PC, 

1 1 

OEFLG 

#252, 

RO, 

.M?RX, 

WWP,@ 

*AE,@ 

(R3) 

10$ 



SETAE 

CKPMER 

#114 



SPftNT 
SERROR 



.HI 
;BR IF 
; POINT 
;FIRST 
; 3R TO 
;SET AC 
; CHECK 
; CHECK 
;BR IF 
;SKIP i 
;CHECK 
CHECK 
BRANCH 
;SET UP 
ER 
;£RROR 



RO 

(R2 

R3 

(R3) 

(R3) + 



SET WRONG PARITY 



MOVB 



BIC 
TST 



RO, 
.MPRX 
WWP, 
(R3) 

11$ 

.PBTR 



IN LOC. 
(R2 



ATION 
) 



SCOPE ROUTINE. 

IMUM BLOCK SIZE REQUIRED THIS TEST. 

FOR ANY PARITY MEMORY. 

NO PARITY MEMORY. 

FORIMHIBIT PARITY SWITCH. 

N9T r,6t, 

HIS TEST IF NO PARITY MEMpRY PRESENT. 

BE PUT IN ALL MEMORY. 

TO LOAD ALL MEMORY. 
LIZE THE MEMORY ADDRESS POINTERS. 
IF CURRENT BANK HAS PARITY MEMORY. 
PARITY MEM. 

64K. 
PARITY MEM. 
TO END OF BLOCK. 
ADR OF NEXT BLOCK. 
FIND NEXT BLOCK. 
TION ENABLE (EVEN IF BANKO.) 
FOR ANY NGN TRAP PARITY ERRORS. 
IF POINTING TO PARITY ERROR VECTOR. 
NOT AT VECTOR. 
ARITY VECTOR. 
FOR BLOCK END. 
IF BYTE STILL CLEARED. 

OVEP ERROR CALL IF GOOD DATA. 

VALUES FOR ERROR PRINTING. 
ROR *** (GO TYPE A MESSAGE) 
TYPE CODE. 



;CLEAR ODD/EVEN FLAG. 

;SET UP DATA. . .EV N, SETS PARITY BIT. 

\l DATA INTO TEST LOCATION. 
;GET PARITY REGISTER TABLE POINTER. 
;SET WRITE WRONG PARITY. 



UNDEI 
WRIT! 



P, @*-P, 
TY VIA 



ARVEC 
DATIi 



DETECT WRONG PARI 

NEGB (R2) 
SHOULD r.AVE TRAPPED TQ PBTR. 



CHECK FOR TABLE TERMINATOR. 
F MORE REGS IN TABLE. 

TEST. 
E SAME DATA (EXCEPT PARITY) VIA DATOB 
PARITY REG TABLE POINTER. 
R WRITE WRONG PARITY. 
K FOR TABLE TERMINATOR. 
F MORE PARITY REGISTERS. 

UP VECTOR FOR EXPECTED TRAP. 
TOB SHOULDN'T EXECUTE. 
P (DATOB AND COM PARITY BIT.) 



;CLEA! 
;CHEC! 



CZQMCFO 
CZQMCF.F 

2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
24S3 
2484 
2485 
2486 
2487 
248S 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 



1 1 



-124K IV EMORY EXERCISER, 
14-FE3-78 08: 19 
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012030 
012036 
012C42 
012046 
012050 



016737 
CC4767 
004767 
0C0012 
000562 



167602 
006"00 
007572 



012052 
012060 
012062 
012066 
012072 
012074 
012100 
012102 
012106 
012112 
012114 
0121 20 
012124 
012126 
0121 30 
0121 36 
012140 
012146 
012150 
012154 
012160 
012162 
012162 
012164 
012166 
0121 72 
012174 
012176 
012200 
012204 

012212 
012216 
C12222 
012230 
012234 

012240 
012242 
012244 
012250 
C12254 
012256 
012256 
012262 
012264 
012270 
012274 
012276 



016737 
022626 
C16703 
022713 
0C1003 
01 7301 
100413 
0E2703 
020367 
103765 
004767 
004767 
0C0013 
0C0533 
026763 
00101 1 
036763 
001005 
004767 
004767 
000014 

01 0046 

0-. 0200 

0427C0 003777 

000300 

006300 

006300 

0C57E7 



001404 
0-'27C0 



016367 

046700 
04 6701 



166402 

177600 
172344 
100001 
000006 
167262 
167256 



0200C1 

001405 

0C4767 006066 

0C4767 007364 

000015 

C'5073 000000 

Oi 0346 

062703 

020367 

101014 

032713 



000010 

167334 



MOV 

JSR 

JSR 

.WORD 

BR 



(S'/PARVEC ;RESET VECTOR FOR UNEXPECTED TRAPS. 
SPRNTO ;SET UP VALUES FOR ERROR PRINTING. 
SERROR ;*** ERROR *** (GO TYPE A MESSAGE) 

;ERROR TYPE CODE. 

;SKIP TRAP SERVICE. 



167560 000114 PBTRP: 



167540 
000001 



EXPECTED PARITY MEMORY TRAPS C 



000010 
167516 



006222 
007514 



167410 
167402 



006162 
007460 



000002 235= 



.PESRV, g-4'PARVEC 

(SP)+, (SP)+ 

. MPRO, R3 

*BITO, (R3) 

22$ 

@(R3), R1 

23S 

£10, R3 

R3, .MPRX 

21$ 



MOV 

CMP 

MOV 

BIT 

BNE 

MOV 

BMI 

ADD 

CMP 

BLO 

JSR 

JSR 

.WORD 

BR 

BIT 

BNE 

BIT 

BNE 

JSR 

JSR 

.WORD 

MCV 
MOV 
BIC 
SWAB 
ASL 
ASL 
TST 
BEO 

BIC #177600, SO 
ADD @*KIPAR2,R0 
BIS 4BIT15+BITG.R0 
MOV 6(R3) , RESRVD 
BIC RESRVD, RO 
BIC RESRVD, R1 
THE ABOVE INSTRUCTION (2 
CMP RO, R1 
67$ 



PC, 


SPRNTO 


PC, 


SERROR 


13 




WWPB4 




BITPT , 


2(R3) 


24$ 




B1TPT+2 


,4(R3) 


24$ 




PC, 


SPRNTP 


PC, 


SERROR 


14 




RO.-(SP) 


R2, 


RO 


#3777, 


RO 



MMAVA 
25$ 



BEO 
JSR 

jri 



CLR 
MOV 
ADD 
CMP 
BhI 



PC, 
PC, 



SPRNTP 
SERROR 



@(R3) 

R3,-(SP) 
#10, R3 
S3, .MP..X 
WWPB3 
rfBITO, (R3) 



ERE. 

;RESET PARITY VECTOR FOR UNEXPECTED TRAPS. 
RESET THE STACK POINTER AFTER TRAP. 
GET PARITY REG AND MAP TABLE POINTER. 
CHECK IF THIS REGISTER EXISTS. 
BR IF IT DOESN' T EXIST. 
GET THE CONTENTS. 
BR IF ERRO-- FLAG SET. 
MOVE POINTER TO NEXT REG. 
CHECK FOR END OF TABLE. 
3R IF MORE REGISTERS. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR »** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 
EXIT AFTER ERROR. 

CHECK THE MAP FOR THIS REGISTER. 
BR IF THIS REGISTER CONTROLS THIS BANK. 
CHECK THE HI 64K. 

BR IF THIS REGISTER CONTROLS THIS BANK. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR »** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

;PUSH RO ON STACK 
GET THE ADDRESS POINTER. 
CLEA^ LOW ADDRESS BITS. 
SHIFT 6 PLACES RIGHT. 



CHECK FOR MEM MGMT . 
BR IF NO MEM MGMT. 
CLEAR BANK BITS 
ADD MEM MGMT OFFSET. 

SET ERROR AND AE BIT IN CHECK WORD. 
GET APPROPIATE MASK. 

CLEAR PARITY REG BITS RESERVED FOR FUTURE. 
CLEAR PARITY REG BITS RESERVED FOR FUTURE. 
iORDS) CAN EE NOP'ED FOR UNMIXED MEMORY TYPES. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

CLEAR REG INCLUDING ACTION ENABLE. 

;PUSH R3 ON STACK 

UPDATE POINTER TO NEXT PARITY REG + MAP. 

CHECK FOR END OF TABLE. 

BR IF END OF TABLE REACHED. 

CHECK IF NEXT REG EXISTS. 



1 



CZQMCFO 0-1 24K MEMORY 


EXERCISER, 16K 


CZQMCF 


P1 1 


4-FE3-7E 


08: 19 


2502 


012302 


001370 




2503 


012304 


01 7301 


000000 


2504 


012310 


1C0365 




2505 


012312 


004767 


006020 


2506 


012316 


0C4767 


007316 


2507 


012322 


0G0016 




2508 


012324 


000757 




2509 


012326 


1 1 1204 




2510 








251 1 








2512 


012330 


1 1 1212 




2513 








2514 








2515 


012332 


1 2603 




2516 


012334 


01 7301 


000000 


2517 


012340 


046701 


167152 


2518 








2519 


012344 


042700 


000001 


2520 


012350 


020001 




2521 


C12352 


05 1405 




2522 


012354 


C04767 


005756 


2523 


012360 


0C47E7 


007254 


2524 


012264 


0C0015 




2525 


012366 






2526 


012366 


012773 


000001 000000 


2527 


012374 


Ci 0401 




2528 


012376 


01 26C0 




2529 


0124C0 


120001 




2530 


012402 


001 405 




2531 


0124C4 


004767 


005732 


2532 


012410 


4767 


007224 


2533 


0124)4 


000017 




2534 


012416 






2535 


012416 


1 1 0012 




2536 


012420 


105712 




2537 


012422 


O 1 2700 


000253 


2538 


012426 


105167 


167126 


2539 


012432 


1GCC02 




2540 


012434 


000167 


177316 


2541 


012440 


0C5202 




2542 


012442 


030502 




2543 


012444 


0C1402 




2544 


0124 46 


000167 


17 7240 


2545 


012452 


004767 


002526 


2546 


012456 


004767 


005054 



GK VER 

T17 
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BNE 

MOV 

BPL 

JSR 

JSR 

.WORD 

BR 



26$ 

@(R3) 

26$ 

PC, 

PC, 

16 

26$ 

(R2), 



R1 



SPRNTP 
SERRGR 



PB3: MOVB 
READING THE DATA 
ACTION ENABLE IS 
MOVB (R2), 

OIE: THE ,BOVE INS 
WHICH DO ONLY 
MCV (SP)+ 
MOV <P>(R3) 
BIC RESRVI 

DTE: THE ABOVE INST 



67S: 

WWPB4: 



27$: 
WWPB5: 



BIC 
CMP 
BEQ 
JSR 
JSR 
.WORD 

MOV 

MOV 

MOV 

C.VB 

BEO 

JSR 

JSR 

.WORD 

MCVB 

TSTB 

MOV 

COM3 

BPL 

JMP 

INC 

BIT 

BEQ 

JMP 

JSR 

JSR 



*AE, 
RO, 
65$ 
PC, 



BR IF THIS PARITY REG DOESN'T EXIST. 
SAVE AND CHECK FOR ERROR FLAG. 
BR IF NO EPROR FLAG. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 
BR AFTER EPR3R. 
GET THE DA T A FOR CHECKING. 
IA DATI TO CHECK IT SHOULD CAUSE PARITY ERROR, BUT 
NOT SET IN CGNTROLING TEG, SO NO TRAP SHOULD OCCURE. 

(R2) ;RESTORE RIGHT PARITY 
TRUCTICN CAN BE NCP ' ED FOR PROCESSORS 

DATOB TO DESTINATION OF MOVB INSTRUCTIONS. 
•R3 ; ; POP STACK INTO R3 

. R1 ;READ THE PARITY REGISTER TO CHECK IT AGAIN. 
D < t<1 ICLEAR PARITY REG BITS RESERVED FOR FUTURE. 
RUCTION (2 WORDS) CAN BE NOP'ED FOR UNMIXED MEMORY TYPES. 
;CLEAR THE ACTION ENABLE BIT IN TEST DATA. 
;COMPARE THE CHECK WORD WITH THE DATA READ. 
; BRANCH OVER ERROR CALL IF GOOD DATA. 
;SET UP VALUES FOR ERROR PRINTING. 
;*** ERROR »** (GO TYPE A MESSAGE) 
;ERROR TYPE CODE. 



SPRNTP 
SERROR 



RO, 
(R2) 

£253, 

OEFLG 

27$ 

WWPB2 

R2 

R5, 

30$ 

WWPB1 



£(R3) 



SPRNTO 
SERROR 



MMU P 
MAMF 



;CLEAR ALL BUT ACTION ENABLE. 

; GET DATA READ FROM MEMORY FOR TESTING. 

; ;POP STACK INTO RO 

;CHECK THE DATA. 

; BRANCH OVER ERROR CALL IF GOOD DATA. 

;SET UP VALUES FOR ERROR PRINTING. 

;*** ERROR *** (GO TYPE A MESSAGE) 

;ERROR TYPE CODE. 

;RESTORE DATA. 

;D0 A DATI TO BE SURE RIGHT PARITY. 

;SET ODD PAMTY DATA. 

;CHECK IF DONE BOTH ODD AND EVEN PARITY. 

; BR IF DONE EOTH EVEN AND ODD. 

; LOOP BACK AND DO ODD(PARITY BIT CLR). 

;MOVE POINTER TO NEXT MEMORY BYTE. 

;CHECK FOR END OF BLOCK. 

;BR IF END OF BLOCK FOUND. 

;LOOP BACK TO TEST NEXT BYTE. 

;FIND NEXT BLOCK AND LOOP TO WWPBYT 

;G0 RESET PARITY REGISTERS. 



CZOMCFO 0-124K MEMORY EXERCISER, 
C2QMCF.P11 14-FEB-78 08:i9 



2547 








2548 








2549 








2550 


12462 






2551 


012452 


004567 


006142 


2552 


012466 


000000 




2553 


012470 


01 0703 




2554 


012472 


0--2703 


007777 


2555 


012476 


0C4467 


001724 


2556 


012502 


010246 




2557 


C12504 


010346 




2558 


012506 


012322 




2559 


012510 


022703 


007777 


2560 


012514 


0C1002 




2561 


012516 


162703 


010000 


2562 


012522 


030502 




2563 


012524 


001370 




2564 


01 2526 


012603 




2565 


012530 


01 26C2 




2566 


012532 


012300 




2567 


012534 


01 2201 




2568 


012535 


020001 




2569 


012540 


001405 




2570 


012542 


004767 


005620 


2571 


C12546 


0C4767 


007066 


2572 


012552 


000020 




2573 


012554 






2574 


012554 


032703 


007777 


2575 


012560 


001002 




2576 


012562 


162703 


010000 


2577 


012566 






2578 


012566 


0305C2 




2579 


012570 


001360 




2580 


012572 


004767 


0024f-5 



16K VER 


MA0Y1 1 


30A(1052) 20-F 


T20 


RANDOM 


DATA TESTING T 




******* 


********* 


******* 


•♦TEST 


20 


RANDOM 


DATA T 


; ; *** ** 


**************** 


******* 


TST20: 










JSR 


R5, 


SSCOPE 




.WORD 







RmNTST 


MOV 


PC, 


R3 




B T 1 


#7777, 


R3 




JSR 


R4, 


INITMM 


1$: 


MOV 


R2, 


"(SP) 




MCV 


R3, 


-(SP) 


2$: 


MOV 


(R3)+. 


(R2) + 




BIT 


#7777, 


R3 




BNE 


3$ 






SUB 


#10000, 


R3 


3$: 


BIT 


R5, 


R2 




BNE 


2$ 






MOV 


(SP)+, 


R3 




MOV 


(SP)+, 


R2 


4$: 


MOV 


(R3)+, 


RO 




MOV 


(R2)+, 


R1 




CMP 


RO, 


R1 




BEO 


65$ 




64$: 


JSR 


PC, 


SPRNT2 




JSR 


PC, 


SERROR 




.WORD 


20 




65$: 










BIT 


#7777, 


R3 




BNE 


5$ 






SUB 


#10000, 


R3 


5$: 










BIT 


R5, 


R2 




BNE 


4$ 






JSR 


PC, 


MMUP 
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TESTING THRU PROGRAM CODE RELOCATION. 



TESTING THRU PROGRAM CODE RELOCATION. 

I********************************* 

;G0 TO SCOPE ROUTINE. 

;N0 MINIMUM BLOCK SIZE REQUIRED THIS TEST. 

;GET CURRENT PROGRAM COUNTER. 

; POINT TO BEGINNING OF CURREN'T 2K BLOCK. 

; INITIALIZE THE MEMORY ADDRESS POINTERS. 

;SAVE MEMORY POINTER. 

;SAVE "DATA" POINTER. 

;MOV CODE INTO TEST MEMORY. 

;CHECK FOR END OF "DATA TABLE" 

; BRANCH IF MORE 

; RESET POINTER TO START OF "RANDOM DATA" 

;CHECK FOR END OF BLOCK 

; BRANCH IF MORE. 

;RESET "DATA" POINTER. 

; RESET MEMORY POINTER. 

;GET S/B DATA. 

;GET THE DATA FROM MEMORY UNDER TEST. 

; COMPARE THE CHECK WORD WITH THE DATA READ. 

; BRANCH OVER ERROR CALL IF GOOD DATA. 

;SET UP VALUES FOR ERROR PRINTING. 

;*** ERROR *** (GO TYPE A MESSAGE) 

;ERROR TYPE CODE. 

;CHECK FOR END OF "DATA TABLE" 

;BR IF MORE. 

; RESET POINTER TO TOP OF "DATA TABLE". 



CHECK FOR END OF A BLOCK. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 1$. 
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2591 








2532 








2583 








2584 








2535 








2586 








2587 








2588 








2589 








2590 








2591 








2592 








2593 








2594 








2595 








2596 








2597 








2598 








2599 








2600 








2601 








2602 








2603 








2604 








2605 








2606 








2607 


012576 






2608 


012576 


004567 


006026 


2609 


012502 


0C0003 




2610 








2611 


C 12604 


000167 


000056 


2512 








2613 


12610 


C< 27C3 


010412 


2614 


012614 


01 2704 


000205 


2615 


C 12620 


01 04C0 




2616 


012522 


0044C7 


001600 


2617 


012625 


0^ 0322 




2618 


01263C 


01 0412 




2619 


012632 


0C4542 




2620 


012634 


0' 22C1 




2621 


0126 36 


0200C-1 




2622 


012640 


00 1 405 




2623 


012642 


0C4767 


005514 


2624 


012346 


0047^7 


006766 


2625 


012652 


0C0021 




2626 


012654 






2627 


012654 


010322 




2628 


012356 


030502 




2629 


012660 


0C1363 




2630 


012662 


0C4767 


002316 



.SBTTL SECTION 3: 



INSTRUCTION EXECUTION TESTS. 



*TEST 21 EXECUTE DATI, DATO THRU MEMORY. 

> EXECUTES THE INSTRUCTION 'MOV R4,(R2)' THROUGHOUT MEMORY. 

» AN 'RTS RE' (CODE 205) IS PLACED AFTER THE 'MCV INSTRUCTION TO RETURN 

• CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTION CHECKOUT. 

• THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY: 



MEMORY 
LOCATION 



1ST PASS / 40000 
THRU TEST / 40002 



2ND PASS / 40002 
THRU TEST / 40004 



INSTRUCTION 
PLACED THERE 



010412 
000205 



CONTENTS OF MEMORY LOCATION 
AFTER INSTRUCTION EXECUTION 



000205 
000205 



000205 
000205 



ETC. 



ETC. 



ETC. 



DATA WRITTEN ON TOP OF IUT BY THE IUT 
DATA READ FROM MEMORY (WAS). 
ADDRESS OF IUT/DATA. 
INSTRUCTION UNDER TEST (IUT). 
RTS F.5 (CODE 205). 
BLOCK BOUNDRY BIT MASK. 



JSR 


R5, 


SSCOPE 


.WORD 


3 




JMP 


TST22 




MCV 


#010412 


,R3 


MOV 


#205, 


R4 


MOV 


R4, 


RO 


JSR 


R4, 


INITMM 


MOV 


R3, 


(R2) + 


MOV 


R4, 


(R2) 


JSR 


R5, 


"(R2) 


MOV 


(R2)+, 


R1 


CMP 


RO, 


R1 


BEQ . 


65$ 




JSR 


PC, 


SPRNT3 


JSR 


PC, 


SERROR 


.WORD 


21 




MOV 


R3, 


(R2) + 


B T T 


R5, 


R2 


BNE 


2$ 




JSR 


PC, 


MMUP 



GO TO SCOPE ROUTINE. 

MINIMUM BLOCK SIZE OF 2 WORDS 

REQUIRED FOR THIS TEST. 
SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 

AVAILABLE FOR TEST. 
GET 'MOV R4,(R2)' INSTRUCTION (IUT). 
GET 'RTS R5' 

SET UP 5/3 DATA AFTER EXECUTION. 
INITIALIZE THE MEMORY ADDRESS POINTERS. 
PUT IUT INTO FIRST LOG OF BLOCK. 
PUT 'RTS R5' FOLLOWING IUT. 
GO EXECUTE THE IUT. 

GET THE DATA FROM THE MEM ADR UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVEF ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

PUT THE IUT INTO THE NEXT LOCATION. 
CHECK FOR END OF A BLOCK. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 1$. 



CZQMCFO 


0-1 24K VEMORY 


EXERCH 


CZQMCF. 


P1 1 1 


4-FEB-78 


08: 19 


2631 








2632 








2633 








2634 








2635 








2636 








2637 








2638 








2639 








2640 








2641 








2642 








2643 








2644 








2645 








2646 








2647 








2648 








2649 








2650 








2651 








2652 








2653 








2654 








2655 








2656 


012666 






2657 


012666 


0G4567 


005736 


2658 


012672 


000003 




2659 








2660 


012674 


000167 


000060 


2661 








2662 


012700 


01 27C3 


1 10412 


2663 


012704 


01 2704 


000205 


2664 


012710 


0'. 2700 


1 10605 


2665 


012714 


004467 


001506 


2666 


012720 


01 0322 




2667 


012722 


01 0412 




2668 


012724 


00 454 2 




2669 


012726 


Oi 2201 




2670 


012730 


0200C1 




2671 


012732 


0014C5 




2672 


012734 


004767 


005422 


2673 


012740 


004767 


006674 


2674 


012744 


000021 




2675 


012746 






2676 


012746 


010322 




2677 


012750 


020502 




2678 


012752 


001363 




2679 


012754 


004767 


002224 
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EXECUTE DATI, DATC5 ( LQw BYTE) THRU MEMORY. 



EST 22 EXECUTE DAT I, D^TCS (LOW BYTE) THRU MEMORY. 
EXECUTES THE INSTRUCTION 'f.lOvB R4,(R2)' THROUGHOUT MEMORY. 
AN 'RTS RE' (CODE 2C5 i IS PuACED AFTER THE 'MCVB' INSTRUCTION TO RETURN 
CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTION CHECKOUT. 
THIS IS AN EXAMPLE OP WHAT THIS TEST DOES IN RELATION TO MEMORY: 



j 







MEMOS/ 
LOCATION 


INSTRUCTION 
PLACED THERE 


CONTENTS 
AFTER IN 


1ST 
THRU 


PASS / 
TF c- J 


40000 
40002 


1 10412 
00020E 


110605 
000205 


2ND 
THRU 


PASS / 
TEST / 


40002 
40004 


1 10412 
000205 


1 10605 
000205 



ETC. 



ETC., ETC. 



DATA WRITTEN ON TOP OF IUT BY THE IUT (SHOULD BE). 

DATA READ FROM MEMORY (WAS). 

ADDRESS OF 1UT/DATA. 

INSTRUCTION UNDER TEST (IUT). 

RTS R5 (CODE 205) . 

BLOCK BOUNDRY BIT MASK. 



JSR 
.LORD 

JMP 

MOV 
MOV 
MOV 
JSR 
MOV 
MCV 
JSR 
MCV 
CMP 
BEO 
JSR 
JSR 
.WORD 

MOV 
BIT 
BNE 
JSR 



#1 10412, R3 
#205, R4 
#1 10605, RO 



(R2) + 

(R2) 
'-(R2) 



SPRNT3 
SERROR 



GO TO SCOPE ROUTINE. 

MINIMUM BLOCK SIZE OF 2 WORDS 

REQUIRED FOR Ti-iIS TEST. 
SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 

AVAILABLE FOR TEST. 
GET 'MOVE P4,(R2)' INSTRUCTION (IUT). 
GET 'RTS R5 1 

SET UP S/B DATA AFTER EXECUTION. 
INITIALIZE THE MEMORY ADDRESS POINTERS. 
PUT IUT INTO FIRST LOG OF BLOCK. 
PUT 'RTS R5' FOLLOWING IUT. 
GO EXECUTE THE IUT. 

GET THE DATA FROM THE MEM ADR UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

PUT THE IUT INTO THE NEXT LOCATION. 
CHECK FOR END OF A BLOCK. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 1$. 
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2680 








2681 








2682 








2683 








2684 








2685 








2686 








2687 








2688 








2689 








2690 








2691 








2692 








2693 








2694 








2695 








2696 








2697 








2693 








2699 








2700 








2701 








2702 








2703 








2704 








2705 


012760 






2706 


012760 


004567 


005644 


2707 


012764 


000003 




2708 








2709 


012766 


000167 


000064 


2710 








271 1 


012772 


01 27C3 


1 10342 


2712 


012776 


01 27C4 


000205 


2713 


013002 


0-. 27C0 


161342 


2714 


013005 


004467 


001414 


2715 


013012 


010322 




2716 


013C14 


01 0412 




2717 


01 3016 


004562 


177776 


2718 


013022 


005302 




2719 


013024 


0- 2201 




2720 


013026 


0200C1 




2721 


013030 


0014C5 




2722 


013032 


004767 


005324 


2723 


013035 


0047' 7 


006576 


2724 


013042 


000021 




2725 


013C44 






2726 


013044 


01 0322 




2727 


013046 


030502 




2728 


013050 


00 1361 




2729 


013052 


004767 


002126 



•TEST 23 EXECUTE DATI, DATOB (HIGH BYTE) THRU MEMORY. 

■ EXECUTES THE INSTRUCTION 'MOVB R3,-(R2)' THROUGHOUT MEMORY. 

< AN 'RTS R5 ! (CODE 205) IS PLACED AFTER THE 'MCVB 1 INSTRUCTION TO RETURN 

< CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTION CHECKOUT. 
THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY: 



MEMORY 
LOCATION 



1ST PASS / 40000 
THRU TEST / 40002 



2ND PASS / 40002 
THRU TEST / 40004 



INSTRUCTION 
PLACED THERE 



110342 
000205 



CONTENTS OF MEMORY LOCATION 
AFTER INSTRUCTION EXECUTION 



161342 
000205 



1 10342 
000205 



161342 
000205 



ETC. , ETC. 



ETC. 



RO = DA'. , WRITTEN ON TOP OF IUT BY THE IUT (SHOULD BE). 

R1 = DATA READ FROM MEMORY (WAS). 

R2 = ADDRESS OF IUT/DATA. 

R3 = INSTRUCTION UNDER TEST (IUT). 

R4 = RTS R5 (CODE 205") . 

R5 = BLOCK BOUNDRY PIT MASK. 





JSR 


R5, 


SSCOPE 




.WORD 


3 






JMP 


TST24 




DID3H: 


MOV 


ff\ 10342 


,R3 




MCV 


#205, 


R4 




MOV 


#161342 


,R0 




JSR 


R4, 


INITMM 


IS: 


MOV 


R3, 


(R2) + 


2S: 


MCV 


14, 


(R2) 




JFR 


R5, 


~2(R2) 




DEC 


R2 






MOV 


(R2)+, 


R1 




CMP 


RO, 


R1 




BEO 


65S 




64 S: 


JSR 


PC, 


SPRNT3 




JSR 


PC, 


SERROR 




.WORD 


21 




65$: 










MOV 


R3, 


(R2) + 




B" T 


R5, 


R2 




BNE 


2$ 






JSR 


PC, 


MMU P 



GO TO SCOPE ROUTINE. 

MINIMUM BLOCK SIZE OF 2 WORDS 

REQUIRED FOR THIS TEST. 
SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 

AVAILABLE FOR TEST. 
GET 'MOVB F3,-(R2)' INSTRUCTION (IUT). 
GET 'RTS R5' 

SET UP S/B DATA AFTER EXECUTION. 
INITIALIZE THE MEMORY ADDRESS POINTERS. 
PUT IUT INTO FIRST LOG ( F BLOCK. 
PUT 'RTS R5' FOLLOWING IUT. 
GO EXECUTE THE IUT. 
ADJUST R2 TO POINT TO MAUT . 
GET THE DATA FROM THE MEM ADR UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

PUT THE IUT INTO THE NEXT LOCATION. 
CHECK FOR END OF A BLOCK. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 1$. 



CZQMCFC 


0-124K MEMORY 


EXERCI 


CZOMCF. 


P1 1 


4-FEB-78 


08:19 


2730 








2731 








2732 








2733 








2734 








2735 








2736 








2737 








2738 








2739 








2740 








2741 








2742 








2743 








2744 








2745 








2746 








2747 








2748 








2749 








2750 








2751 








2752 








2753 








2754 








2755 


013056 






2756 


013056 


004567 


005546 


2757 


013062 


000003 




2758 








2759 


013064 


0C0167 


000060 


2760 








2761 


013070 


0127C3 


005412 


2762 


013074 


Oi 2704 


000205 


2763 


0131 00 


012700 


1723cJ 


2764 


013104 


004467 


001316 


2765 


0131 10 


01 0322 




2766 


013112 


010412 




2767 


013114 


004542 




2768 


0131 16 


012201 




2769 


013120 


020001 




2770 


013122 


001405 




2771 


013124 


004767 


005232 


2772 


013130 


004767 


006504 


2773 


013134 


000021 




2774 


013136 






2775 


013136 


010322 




2776 


013140 


030502 




2777 


013142 


001363 




2778 


013144 


004767 


002034 



16K VER 
T24 
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*TEST 24 EXECUTE DATI, DATIP, DATO THRU MEMORY. 

* EXECUTES THE INSTRUCTION 'NEG (R2)' THROUGHOUT MEMORY. 

* AN 'RTS R5' (COCI 205) IS PLACED AFTER THE 'NEG' INSTRUCTION TO RETURN 
+ CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTION CHECKOUT. 

* THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY: 









MEMORY 
LOCATION 


INSTRUCTION 
PLACED THERE 


CONTENTS 
AFTER IN 


.ST 

THR.U 


PASS 
TEST 


/ 

/ 


40000 
40002 


005412 
000205 


172366 
000205 


2ND 
THRU 


PASS 
TEST 


/ 
/ 


40002 
40004 


005412 
000205 


172366 
000205 



ETC. 



ETC., ETC. 



DATA WRITTEN ON TOP OF I LIT BY THE IUT (SHOULD BE). 

DATA READ FROM MEMORY (WAS). 

ADDRESS OF IUT/DATA. 

INSTRUCTION UNDER TEST (IUT). 

RTS R5 (CODE 205). 

BLOCK BOUNDRY BIT MASK. 



JSR 


R5, 


SSCOPE 


• WORD 


3 




JMP 


TST25 




MOV 


#005412 


, R3 


MOV 


#205, 


R4 


MOV 


*172366 


,R0 


JSR 


R4, 


INITMM 


MOV 


R3, 


(R2) + 


MOV 


R4, 


(R2) 


JSR 


R5, 


"(R2) 


MOV 


(R2)+, 


R1 


CMP 


RO, 


R1 


BEO 


65S 




JSR 


PC, 


SPRNT3 


JSR 


PC, 


SERROR 


.WORD 


21 




MOV 


R3, 


(R2) + 


BIT 


R5, 


R2 


BNE 


2$ 




JSR 


PC, 


MMUP 



GO TO SCOPE ROUTINE. 

MINIMUM BLOCK SIZE OF 2 WORDS 

REQUIRED FOR THIS TEST. 
SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 

AVAILABLE FOR TEST. 
GET 'NEG (P2)' INSTRUCTION (IUT). 
GET 'RTS R5' 

SET UP S/B DATA AFTER EXECUTION. 
INITIALIZE THE MEMORY ADDRESS POINTERS. 
PUT IUT INTO FIRST LOG OF BLOCK. 
PUT 'RTS R5' FOLLOWING IUT. 
GO EXECUTE THE IUT. 

GET THE DATA FROM THE MEM ADR UNDER TEST. 
COMPARE THE CHEC - WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

PUT THE IUT INTO THE NEXT LOCATION. 
CHECK FOR END OF A BLOCK. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 1$. 
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2779 
2780 
2781 
2782 
2783 
2784 
2765 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 
2604 
2805 
2805 
2807 
2808 
2809 
2810 
281 1 
2812 
2813 
2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2622 
2823 
2824 
2825 
2026 
2827 
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EXECUTE DATI, DATI, DATIP, DATQ3 (LOW BYTE) THRU MEMORY. 



013150 
013150 
013154 



004567 
0000C3 



013156 000167 000060 



013162 

013166 
013172 

013176 
013202 
013204 
01320B 
013210 
013212 
013214 
013216 
013222 
013226 
013230 
C13230 
013232 
013234 
013236 



012703 
0127C4 
0: 27C0 

0C4467 
01 0322 
Oi 04 12 
004542 
Q- 22C1 
C20001 
0C14C5 
004767 
004767 



142242 
000205 
142000 
001224 



005140 
006412 



C000J1 

010322 
030502 
001363 
0C4767 001742 



*TEST 25 EXECUTE DATI, DATI, DATIP, DATOB (LOW BYTE) THRU MEMORY. 

* EXECUTES THE INSTRUCTION BICB (R2)+,-(R2)' THROUGHOUT MEMORY. 

* AN 'RTS R5' (CODE 205) IS PLACED AFTER THE BICB' INSTRUCTION TO RETURN 

* CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTION CHECKOUT. 

* THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY: 



INSTRUCTION EXECUTION 







MEMORY 
LOCATION 


INSTRUCTION 
PLACED THERE 


CONTENTS 
AFTER IN 


1ST 

THRU 


PASS / 
TEST / 


40000 
40002 


142242 
000205 


142000 
OC0205 


2ND 
THRU 


PASS / 
TEST / 


40002 
40004 


142242 
000205 


142000 

0C0205 



ETC. 



ETC. 



ETC. 



DAi„ WRITTEN ON TOP OF IUT BY THE IUT (SHOULD BE). 

DATA READ FROM MEMORY (WAS). 

ADDRESS OF IUT/DATA. 

INSTRUCTION UNDER TEST (IUT). 

RTS R5 (CODE 205). 

BLOCK BOUNDRY BIT MASK. 



TST25: 










JSR 


R5, 


SSCOPE 




.WORD 


3 






JMP 


TST26 




DPD3L: 


MOV 


0142242 


, R3 




MOV 


*205, 


R4 




MOV 


#142000 


,R0 




JSR 


R4, 


INITMM 


15: 


MOV 


R3, 


(R2) + 


2S: 


MOV 


iiA, 


(R2) 




jn 


R5, 


-(R2) ; 




MOV 


(R2)+, 


R1 




CMP 


RO, 


R1 ; 




BEQ 


65$ 




64$: 


JSR 


PC. 


SPRNT3 ; 




JSR 


PC, 


SERROR ; 




.WORD 


21 




65$: 










MCV 


R3, 


(R2)+ ; 




BIT 


R5, 


R2 ; 




B,:d 


2$ 






JSR 


PC, 


MMU P ; 



GO TO SCOPE ROUTINE. 

MINIMUM BLOCK SIZE OF 2 WORDS 

REQUIRED FOR THIS TEST. 
SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 

AVAILABLE FOR TEST. 
GET 5.1CB (P2) + ,-(R2)' INSTRUCTION (IUT). 
GET 'RTS R5' 

SET UP S/B DATA AFTER EXECUTION. 
INITIALIZE THE MEMORY ADDRESS POINTERS. 
PUT IUT INTO FIRST LOG OF BLOCK. 
PUT' 'RTS R5' FOLLOWING IUT. 
GO EXECUTE THE IUT. 

GET THE DATA FROM THE MEM ADR UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
«* + ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

PUT THE IUT INTO THE NEXT LOCATION. 
CHECK FOR END OF A BLOCK. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 1$. 



CZOMCFO 
CZQMCF.P 

2828 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2B36 
2837 
2838 
2839 
2840 
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EXECJTF. DATI , DATI , 



)-PEB- 
DATit- 



8 07:56 PAGE 60 
DAT08 (HIGH BYTE) THRU MEMORY. 



2841 

2842 



2844 








2845 








2846 








2847 








2848 








2849 








2850 








2851 








2852 








2853 


013242 






2854 


013242 


004567 


005362 


2855 


013246 


000003 




2856 








2857 


013250 


C00167 


000062 


2858 








2859 


013254 


01 2703 


152212 


2860 


01326C 


01 27C4 


000205 


2861 


013264 


0". 27C0 


157212 


2862 


013270 


0C4467 


001 132 


2863 


013274 


01 0322 




2864 


01 3276 


0", 0412 




2865 


013300 


004542 




2866 


013302 


0053C2 




2867 


013304 


01 2201 




2868 


013306 


020001 




2869 


013310 


001405 




2870 


013312 


004767 


005044 


2871 


013316 


004767 


006316 


^872 


013322 


000021 




2873 


013324 






2874 


013324 


010322 




2875 


013326 


030502 




2876 


013330 


C01362 




2877 


013332 


004767 


001646 



>TEST 26 EXECUTE DATI, DATI, DATIP, DATOG (HIGH BYTE) THRU MEMORY. 

- EXECUTES THE INSTRUCTION 'BISB (R2)+,(R2)' THROUGHOUT MEMORY. 

AN 'RTS R5 ' (CODE 205) IS PLACED AFTER THE '5IS3' INSTRUCTION TO RETURN 

- CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTION CHECKOUT. 
THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY: 



) 



MEMORY 
LOCATION 



1ST PASS / 40000 
THRU TF". : / 40002 



2ND PASS / 40002 
THRU TEST / 40004 



INSTRUCTION 
PLACED THERE 



152212 

000205 



CONTENTS OF MEMORY LOCATION 
AFTER INSTRUCTION EXECUTION 



157212 
0G0205 



157212 
000205 



ETC 



ETC., ETC. 



RO = DATA WRITTEN! ON TOP OF IUT BY THE IUT (SHOULD BE). 

R1 = DATA READ FROM MEMORY (WAS). 

R2 = ADDRESS OF IUT/DATA. 

R3 = INSTRUCTION UNDER TEST (IUT). 

R4 = RTS R5 (CODE 205) . 

R5 = BLOCK BOUNDS Y BIT MASK. 



JSR 
.WORD 

UMP 

MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
JSR 
DEC 
MOV 
CMP 
BEQ 
JSR 
JSR 
.WORD 

MOV 
BIT 
BNE 
JSR 



TST27 

£152212, R3 
#205, R4 
#157212, RO 

R4, in:tmm 



R3, 

R4, 



65$ 
PC, 



(R2) + 

(R2) 

■~(R2) 



5PRNT3 
5ERR0R 



;G0 TO SCOPE ROUTINE. 

;MINIMUM BLOCK SIZE OF 2 WORDS 

REQUIRED FOR THIS TEST. 
;SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 

AVAILABLE FOR TEST. 
;GET 'BISB (R2)+,(R2)' INSTRUCTION (IUT). 



;GET 



RTS R5 1 



; INITIA 
;PUT IU 
;?UT 'R 
; GO EX 
ESET 
;GET TH 
;COMPAR 
RANCH 
ET UP 
*" ER 
; ERROR 



DATA AFTER EXECUTION. 
LIZE THE MEMORY ADDRESS POINTERS. 

INTO FIRST LOG OF BLOCK. 
TS R5' FOLLOWING IUT. 
CUTE THE IUT. 
R2 TO POINT TO IUT. 

, FROM THE. MEM ADR UNDER TEST. 
E THE CHECK WORD WITH THE DATA READ 
OVER ERROR CALL IF GOOD DATA. 
VALUES FOR ERROR PRINTING. 
ROR *** (GO TYPE A MESSAGE) 
TYPE CODE. 



;PUT THE IUT INTO THE NEXT LOCATION. 
;CHECK FOR END OF A BLOCK. 
; BRANCH IF MORE IN CURRENT BLOCK. 
;FIND NEXT BLOCK AND LOOP TO 1$. 
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TESTS 
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2878 








2879 








2880 








2831 








2882 








2883 








2384 








2885 








2886 








2887 








2888 








2689 








2890 








2691 








2892 








2393 








2894 








2895 








2896 








2897 








2898 








2899 








2900 








2901 








2902 








2903 


013336 






2904 


013336 


004567 


005266 


2905 


013342 


OOOOCO 




2906 


013344 


CC4467 


001056 


2907 


012350 


0- 0267 


166240 


2903 


013354 


005003 




2909 


013356 


0- 2700 


000377 


2910 


013362 


0, 00 2 2 




291 1 


013364 


03 0502 




2912 


013366 


001375 




2913 


013370 


014201 




2914 


013372 


0200C1 




2915 


013374 


CO 1405 




2916 


13375 


004767 


004764 


2917 


013402 


004767 


006232 


2918 


0134C6 


000010 




2919 


13410 






2920 


01 3410 


000300 




2921 


13412 


C 0012 




2922 


13414 


' 1201 




2923 


013416 


020CC1 




2924 


13420 


GO 1405 




2925 


013422 


004767 


004740 


2926 


0134 26 


004767 


006206 


2927 


013432 


000010 




2923 


1 34 34 






2929 


134 3-4 


OC-0300 




2930 


0134 36 


C05703 




2931 


01344 


001403 




2932 


013442 


020327 


000003 


2933 


013446 


001010 





-SBTTL SECTION 4:M0S TESTS 



T 


27 


MARCH I 


NIG 


1 ' S AND 


IS 


TEST 


IS DESIGN 


ED 


TO ST RE 


AR 


TING AT THE 30" 


TO 


A ADDRES 


IT 


TEN WITH 00037" 


. T 


HEN STAR 


03 


77 IS 


READ, THE 


3V 


TES ARE 


RE 


AD ~0 


CONFIRM T 


HE 


WRITE. T 


DR 


ESSED 


DOWNWARD 


UN 


TIL THE 


TT 


DM EAC 


K LOCATIC 


N 


IS READ 


j 3 


77 ANl 


REREAD T 





CONFIRM 


N'h 


IS RE 


ACHED. AC 


A I N S T A R T I 


R 


000377 


.THE BYTE 




SWAPPED 


N c 


IRM TH 


E WRITE. 


LA 


STL/ S T A 


RD 


EACH 


LOCATION 


IS 


R" AD,TH 


CATION I 


S REREAD 


TO 


CONFIRM 


BANK UNDER TEST. 







SS MQS MEMORIES. 

S AND ADDRESSING UPWARDS A 4K BANK IS 
TING AT THE TOP ADDRESS OF THE BANK THE 
S.-.'APPED TO 177400 AND THE LOCATION 
HIS IS REPEATED FOR EVERY LOCUIQN 
BOTTOM IS REACHED. STARTING AT THE 
FOR 177400, THE BYTES ARE SWAPPED TO 
THE WRITE UNTIL THE TOP ADDRESS OF THE 
NG AT THE BOTTOM EACH LOCATION IS READ 
TO 177400 AND THE LOCATION REREAD TO 
RTING FROM THE TOP AND ADDRESSING DOWN- 
E EYTES SWAPPED TO 000377 AND THE 
THE WRITE. THIS IS REPEATED FOR EVERY 



RO=DATA WRITTEN INTO MEMOS Y ( SHOULD BE) 

R1=DATA READ FROM MEMORY (WAS) 

R2=VIRTUAL ADDRESS 

R3=TIMES THROUGH COUNTER 

R4=N0T USED 

R5=BL0CK BOUNDARY BIT MASK. 



65$: 
4S: 



66$: 
67$: 



JSR 


R5, 


SSCOPE 


.WORD 







JSR 


R4, 


INITMM 


MOV 


R2 , TEMP 




CLR 


R3 




MOV 


iV000377 


RO 


MOV 


RO, (R2)+ 


BIT 


R5.R2 




BNE 


2$ 




MOV 


-(R2) ,R 




CMP 


RO, 


R1 


BEQ 


65S 




JSR 


PC, 


SPRNT2 


JSR 


PC, 


SERROR 


.WORD 


10 




SWAB 


RO 




MOV 


RO, (R2) 


; WRITE 


MOV 


(R2),R1 




CMP 


RO, 


R1 


BEQ 


67$ 




JSR 


PC, 


SPRNT2 


JSR 


PC, 


SERROR 


.WORD 


10 





BEQ 

CMP 



GO TO SCOPE ROUTINE. 

NO MINIMUM BLOCK SIZE REQUIRED THIS TEST. 

INITIALIZE THE MEMORY ADDRESS POINTERS. 

SAVE BANK STARTING ADDRESS 

CLEAR PASS COUNTER 

SETUP TO WRITE PATTERN 

WRITE PATTERN 

END OF 4K? 

CONTINUE WRITING IF NO. 

GET DATA WRIT EN 

COMPARE THE CHECK WORD WITH THE DATA READ. 

BRANCH OVER ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 

-** ERROR *** (GO TYPE A MESSAGE) 

ERROR TYPE CODE. 

SWAP BYTES OF DATA 

APPED WORD 

GET DATA W-ITEN 

COMPARE THE CHECK WORD WITH THE DATA READ. 

BRANCH OVER ERROR CALL IF GOOD DATA. 

SET UP VALJES FOR ERROR PRINTING. 

*** ERROR *** (GO TYPE A MESSAGE) 

ERROR TYPE CODE. 

PUT DATA BACK TO ORINGINAL 
IF ON PASS OR PASS 3 
WE ARE ADDRESSING DOWN 
IF ON PASS 1 OR 2 GO TO 
UPWAPn 



CZQMCFO Q-124K P/EMORY EXERCISER, 
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2934 


013450 


030502 




2935 


C 13452 


0C1346 




2936 


013-154 


005203 




2937 


013456 


022703 


000004 


2938 


013462 


001427 




2939 


013464 


000300 




2940 


013466 


000404 




2941 


013470 


062702 


000002 


2942 


013474 


030502 




2943 


013476 


001411 




2944 


013500 


01 1201 




2945 


013502 


020001 




2946 


013504 


001405 




2947 


013506 


004767 


0046F1 


2948 


013512 


004767 


006122 


2949 


013516 


000010 




2950 


013520 






2951 


013520 


0C0733 




2952 


013522 


005203 




2953 


013524 


000300 




2954 


013526 


020327 


000002 


2955 


013532 


001316 




2956 


013534 


016702 


166054 


2957 


013540 


000757 




2958 


013542 


004467 


000660 


2959 


013546 


004767 


001432 


2960 








2961 








2962 








2963 








2964 








2965 








2966 








2967 








2968 








2969 








2970 








2971 








2972 








2973 








2974 


013552 






2975 


01355? 


004567 


005052 


2976 


013556 


000000 




2977 


013560 


0044C7 


000642 


2978 


013564 


012700 


125252 


2979 


013570 


01 0022 




2980 


013572 


005100 




2981 


013574 


030502 




2982 


013576 


001374 




2983 


013600 


004767 


001400 


2984 


013604 


0^5003 




2985 


013606 


012704 


000046 


2986 


013612 


005303 




2987 


013614 


001376 




2988 


013616 


005304 




2989 


013620 


001374 
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;DDNE A PASS? 

; IF NO CONTINUE 

;IF YES INCREMENT PASS COUNTER 

;ARE WE DONE ALL PASSES FOR THIS 4K? 

;IF YES BRANCH 

;ELSE SET UP NEW READ WORD 

;G0 TO START OF ADDRESS UP 

;UPDATE TO NEXT ADDRESS 

;DONE A PASS 

; IF YES BRANCH 

;GET DATA WRITTEN 

{COMPARE THE CHECK WORD WITH THE, DATA READ. 

; BRANCH OVER ERROR CALL IF GOOD DATA. 

;SET UP VALUES FOR ERROR PRINTING. 

;*** ERROR *** (GO TYPE A MESSAGE) 

;ERROR TYPE CODE. 



; INCREMENT PASS COUNTER 

;SET UP NEW READ <"QRD 

-.ADDRESSING UP? 

;IF NO GO TO DOWN SEQUENCE 

;IF YES RESET ADDRESS TO START 

;GQ TO UP SEQUENCE 

; INITIALIZE MEMORY ADDRESS POINTERS 

;UPDATE TO NEW BANK IF EXISTS 



*************************** ****** •♦I****************************** 

*TEST 30 WRITE CHECKERBOARD STARTING WITH '125252' DATA. 

* THESE TESTS WRITE A CHECKERBOARD THROUGHOUT MEMORY, STALL 

* FOR 2 SECONDS THEN CHECK PATTERN TO VERIFY DATA DID NOT 

* DETERIORATE BETWEEN REFRESH CYCLES. 

¥ R0=DATA WRITTEN INTO MEMORY ( SHOULD BE) 

* R1=DATA READ FROM MEMORY (WAS) 

* R2=.'iRTUAL ADDRESS 

* R3=SMALL LOOP COuNTER FOR STALL 

* R4«NUMSER OF TIMES SMALL LOOP DONE 

* R5VBL0CK BOUNDARY BIT MASK. 



;G0 TO SCOPE ROUTINE. 

;N0 MINIMUM BLOCK SIZE REQUIRED THIS TEST. 

INITIALIZE THE MEMORY ADDRESS POINTERS. 

;SETUP DATA PATTERN 

•.WRITE A WORD 

; COMPLEMENT DATA 

;CHECK FOR END OF A BLOCK. 

; BRANCH IF MORE IN CURRENT BLOCK. 

;FIND NEXT BLOCK AND LOOP TO 1$. 

;SET UP COUNTER FOR STALL 

;D0 LOOP 46 TIMES OR 2 SEC. TOTAL. 



6K VER 


MACY1 1 


30AM052 


20-F 


T27 


MARCHING 1 'S AND O'S. 


5$: 


BIT 


R5.R2 






BNE 


3$ 






INC 


R3 






CMP 


(*4,R3 






BEQ 


9$ 






SWAB " 


RO 






BR 


7$ 




6$: 


ADD 


#2,R2 






BIT 


R5.R2 






BEQ 


85 




7$: 


MOV 


(R2),R1 






CMP 


RO, 


R1 




BEQ 


69$ 




68$: 


JSR 


PC, 


SPRNT2 




JSR 


PC, 


SERROR 




.WORD 


10 




69$: 










BR 


4$ 




8$: 


INC 


R3 






SWAB 


RO 






CMP 


R3,#2 






BNE 


3$ 






MOV 


TEMP.R2 






BR 


7$ 




9$: 


JSR 


R4.INITMM 




JSR 


PC.MMUP 





JSR 


R5, 


SSCQPE 


.WORD 







JSR 


R4, 


INITMM 


MOV 


#125252 


,R0 


MOV 


RO 


,(R2)+ 


COM 


RO 




B TT 


R5, 


R2 


BNE 


1S 




JSR 


PC, 


MMUP 


CLR 


R3 




MOV 


#46, 


R4 


DEC 


R3 




BNE 


2$ 




DEC 


R4 




BNE 


2$ 





CZQMCFO 


0-124K MEMORY 


EXERCISER 


CZQMCF. 


P11 14-FEB-78 


08:19 


2990 


013622 


004467 


0Q060Q 


2991 


013626 


012700 


125252 


2992 


013632 






2993 


013632 


012201 




2994 


013634 


020001 




2995 


013636 


001405 




2996 


013640 


004767 


004522 


2997 


013644 


004767 


005770 


2998 


013650 


000006 




2999 


013652 






3000 


013652 


005100 




3001 


013654 


030502 




3002 


013656 


001365 




3003 


013660 


004767 


001320 


3004 








3005 








3006 








3007 


013664 






3008 


013664 


004567 


004740 


3009 


013670 


000000 




3010 


013672 


004467 


000530 


3011 


013576 


012700 


052525 


3012 


013702 


010022 




3013 


013704 


005UO 




3014 


013706 


030502 




3015 


013710 


001374 




3016 


013712 


004767 


001266 


3017 


013716 


005003 




3018 


013720 


012704 


000046 


3019 


013724 


0C5303 




3020 


013726 


0* 1376 




3021 


013730 


005304 




3022 


013732 


001374 




3023 


013734 


004467 


000466 


3024 


013740 


012700 


052525 


3025 


013744 






3026 


013744 


012201 




3027 


013746 


020001 




3028 


013750 


001405 




3029 


013752 


004767 


004410 


3030 


013756 


004767 


005656 


3031 


013762 


000006 




3032 


013764 






3033 


013764 


005100 




3034 


013766 


030502 




3035 


013770 


001365 




3036 


013772 


004767 


001206 
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T30 WRI"»i; CHECKERBOARD STARi ING WITH '125252' DATA. 



SEQ 0145 



JSR 

MOV 

MOV 
CMP 
BEO 

$: JSR 
JSR 
.WORD 

$: 

COM 
BIT 
BNE 
JSR 

************ 

TEST 31 
************ 

TST31: 

JSR 
.WORD 
JSR 
MOV 

1$: MOV 
COM 
BIT 
BNE 
JSR 
CL \ 
MOV 

2$: DEC 
BNE 
DEC 
BNE 
JSR 
MOV 

35 : 

MOV 
CMP 
BEQ 

64S: JSR 
JSR 
.WORD 

65$: 

COM 
BIT 
BNE 
JSR 



4. INITMM 
125252, RO 



65$ 
PC, 
PC, 
6 

RO 
R5, 
3$ 



SPRNT2 
SERROR 



INITIALIZE THE MEMQRY ADDRESS POINTERS, 
INIT DATA FOR CHECKING 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 



; CHECK FOR END OF A BLOCK. 

; BRANCH IF MORE IN CURRENT BLOCK. 

;FIND NEXT BLOCK AND LOOP TO 1$. 



WRITE CHECKERBOARD STARTING WITH 052525 DATA 



R5, SSCOPE 



R4, INITMM 

#052525, RO 



RO, 

RO 

R5, 

1$ 

PC, 

R3 

#46, 

R3 

2$ 

R4 

2$ 



(R2) + 

RO, 

65$ 

PC, 

PC, 



3$ 
PC, 



(R2) + 



SPRNT2 
SERROR 



GO TO SCOPE ROUTINE. 

NO MINIMUM BLOCK SIZE REQUIRED THIS TEST. 
INITIALIZE THE MEMORY ADDRESS POINTERS- 
SETUP DATA PATTERN 
JWRITE A WQPD 

; CHECK FOR END OF A BLOCK. 

; BRANCH IF MQRE IN CURRENT BLOCK. 

;FIND NEXT BLOCK AND LOOP TO 1$. 

;SET COUNTER FOR LOOP 

;D0 LOOP 46 TIMES OR 2 SEC. TOTAL 



; INITIALIZE THE MEMORY ADDRESS POINTERS, 
; INIT PATTERN FQR CHECKING 

;GET THE DATA FROM MEMORY UNDER TEST, 

; COMPARE THE CHECK WQRD WITH THE DATA READ. 

; BRANCH OVER ERROR CALL IF GOOD DATA. 

;SET UP VALUES FOR ERROR PRINTING. 

j*** ERROR *** (GO TYPE A MESSAGE) 

;ERROR TYPE CODE. 



5 CHECK FOR END OF A BLOCK. 
•.BRANCH IF MORE IN CURRENT BLOCK. 
'.FIND NEXT BLOCK AND LOOP TO 1$. 



CZOMCFO 0-1 24K MEMORY EXERCISER, 1 6K VER 
CZQMCF.Pil 14-FEB-78 03M9 DONE; 
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RELOCATE PROGRAM AND REPEAT ALL TESTS. 



3037 










.SBTTL 


DONE: 


RELOCATE PROGRA 


3038 


013776 








PQNE: 








3039 


013776 


004567 


004626 






JSR 


R5, 


sscope 


3040 


014002 


OOOQOO 








.WORD 







3041 


014004 


005067 


16516Q 




T5T32: 


CLR 


STIMES 




3042 


014010 


105Q67 


165066 






CLRB 


5TSTNM 




3043 


014014 


036767 


164562 


165512 


1$: 


BIT 


PRGMAP, 


SAVTST 


3044 


014022 


OP1004 








BNE 


2S 




3Q45 


014024 


036767 


164554 


165504 




BIT 


PRGMAP+2.SAVTST 


3046 


014032 


001435 








BEQ 


$EOP 




3047 


014Q34 


032777 


00^200 


165CT$ 


25 : 


BIT 


#SW07, 


<?3WR 


3048 


014042 


001031 








BNC 


SEOP 




3049 


014044 


022767 


00QO03 


164S30 




CMP 


#3. 


PRGMAP 


3050 


014,052 


001013 








BNE 


4$ 




3051 


014054 


023737 


000042 


000046 




CMP 


<P#42,<?>046 


3052 


014062 


P01416 








BEQ 


6$ 




3053 


014064 


105737 


001224 






TSTB 


@0$ENV 




3054 
3055 
3055 


014070 


001013 








BN2 


6$ 




014072 


004767 


002362 






JSR 


PC, 


RELTOP 


3057 
3058 


014076 


000167 


17200? 




3$: 


JMP 


START1 




3059 


014102 


004767 


002754 




4$: 


JSR 


PC, 


RELO 


3050 


014106 


0057i7 


000042 






TST 


@#4£ 




3051 


014112 


001402 








BEQ 


6$ 




3062 


0141 14 


004767 


003150 




5t: 


JSR 


PC, 


RESLDR 


3063 


014120 








6$: 








3064 


014120 


0P4567 


007366 






Ji>R 


R5, 


SPRINT 


3065 


014124 


001201 








• WORD 


$CR(,F 





J 



;G0 TO SCOPE ROUTINE, 

;N0 MINIMUM BLOCK SIZE REQUIRED THIS TE$T, 
;RESET ITERATION COUNTER FOR RESTARTING TEST- 
;RESET TEST NUMBER, 

;CHECK IF PROGRAM IS IN TEST AREA, 
;BR IF IT PFQG IN MEM TQ BE TESTED. 
•2 ;CHECK HI 64K 
;5R IF PROQ NOT IN MEM TO BE TESTED. 
;CHECK FOR INHIBIT RELOCATION SWITCH, 
;SKIP RELOCATION IF SWJTCH SET. 
;CHECK IF PROGRAM IN FIR?T QK. 
;BR IF NOT IN FIRST 8K. 
;CHEC« FOR ACT11 
;BR IF ACT11 . 
5CHECK FOR APT1 1 
;IF APT11 DO NOT RELOCATE 
;MUST BE XXDP OR STANDALONE 
;RELOQATE PROGRAM TO TQP QF MEMORY, 
j LOQP BACK AND RUN ALL TESTS AGAIN, 

;RELQCATE POQGRAM BACK TO FIRST 8K- 
;TEST FOR 

;IF NOT R, iNG UNDER MON . DONT 
;RESTORE L ADERS. 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 
;ADDRE$S OF MESSAGE TO BE TYPED 



C2QMCF0 0-124K MEMORY EXERCJ5ER, 1 6K VER 
CZQMCF.P11 14-FEPr78 08:1$ DONE: 
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RELOCATE PROGRAM AND REPEAT ALL TESTS. 



3066 

3067 

3068 

3069 

3070 

3071 

3072 

3073 

3074 

3075 

3076 

3077 

3078 

3079 

3080 

3081 

3032 

3083 

3084 

3085 

3086 

3087 

3088 

3089 

3090 

3091 

3092 

3093 

3094 

3095 

3096 

3097 

3098 

3099 

3100 

3101 

3102 

3103 

3104 

3105 

3106 

3107 

3108 

3109 

31 10, 

31 1 1 

3112 

3113 

3114 

3115 

31 16 

31 17 

3118 

31 19 

3120 

3121 



014126 
014126 
014130 
014134 
014140 
014146 
014150 
014152 
014154 
014156 
Q14160 
014162 
014166 
014170 



014174 
014200 
0142Q4 
014210 
014212 

014212 
014216 
014220 
0142?2 
014224 
014226 
014230 
014232 
014240 
014242 
014246 
014250 
014254 
014254 
014260 
014266 
014274 
014275 



A 024Q 

005067 165034 



.5BTT|. END OF PASS ROUTINE 

;*INCRE¥ENT THE PASS NUMBER (SPASS) 

;*TYPE "END PASS #XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER) 

;»IF THERES A MONITOR GO TO IT 

{•IF THERT ISN'T JUMP TO START1 

$EQP: 



165052 
100000 



005267 
042767 
005327 
000001 
0C3040 
012737 
0000Q1 
014150 
004567 
014260 
016746 



013746 177776 

004767 010226 

0C4567 007302 
014275 



G167C0 
001416 
000005 
PQ4710 
0C0240 
000240 
000240 
023737 
001405 
10 5737 
0C1002 
004767 



NOP 
CLR 

INC 

BIC 

DEC 

.WQRQ 

BGT 

MOV 

.WORD 

SEQPCT 

JSR 

,WORp 

MOV 



STIMES 

SPASS 

^100000,SPA,S 

(PC) + 

1 

SDOAGN 

(PC)+,@(PC)+ 



JiZERO THE NUMBER OF ITERATIONS 
;; INCREMENT THE PASS NUMBER 
;;DON'T ALLOW A NEQ. NUMBER 
; ; LOOP? 

; ;yes 

; ; RESTORE COUNTER 



R5, 

SENDMG 
SPASS, -MSP) 



SPRINT 



;G0 PRINT OUT THE FOLLOWING MESSAGE. 
;ADDRESS OF MESSAGE TO BE TYPED 
;;SAVE SPASS FOR TYPEOUT 
THE NEXT TWO INSTRUCTIONS PRQVJQE AN INTERFACE TO THE $TYPDS ROUTINE 
WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **$YSMAC**. 

MOV @#PSW, -(SP) ;PUT THE PROCESSOR STATUS ON THE STACK 
, USR PC, STYPDS ;G0 TO THE SUBROUTINE 

OSR R5, SPRINT ;G0 PRINT OUT THE FOLLOWING MESSAGE. 
,WQRD "- 



SENDAp: 



000042 000046 



P00167 

005015 

040520 

000 

377 



171624 
047105 
051523 



020104 
02. 440 



MOV 

BEQ 

RESET 

JSR 

NOP 

NOP 

NOP 

CMP 

BEQ 

TST3 

BNE 

JSR 

JMP 
.ASCIZ 



SENULL 



42, 

SDQAGN 



GM42, @#46 

SPOAGN 

@>*SENV 

SDOAGN 

PC, SAVLDR 

START1 



♦.ADDRESS OF MESSAGE TO BE TYPED 



; ;GET MONITOR ADDRESS 
; BRANCH IF NO MONITOR 
;CLEAR THE WORLD 
;G0 TO MONITOR 
5 SAVE ROOM 
! FOR 
;ACT11 

;ARE WE UNDER ACT1 1 OR XXDP 
;IF ACT11 THEN RTSTART 
ICHECK FOR APT11 
;IF APT11 THEN RESTART 
;IF XXDP FIRST SAVE MONITOR 



<15><12>/END PASS #/ 



; RETURN* 



SENULL: -.BYTE -1,-1,0 ;;NULL CHARACTER STRING 
SB'TL SUBROUTINE AND TRAP ROUTINE SECTION. 

SBTTL MEMORY MANAGEMENT AND ADDRESSING SUBROUTINES, 

* SET UP ALL THE MEM MGMT REGISTERS FOR NORMAL OPERATION. 
- THE PROGRAM IS POINTED TO BY PARS AND 1. 

* THE MEMORY UNDER TEST IS POINTED TO BY PARS 2 ANp 3. 

* THE DEV.CE ADDRESS AREA IS POINTED TO BY PAR 7, 
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3122 










3123 










3124 


014300 








312S 


014300 


01 2737 


077406 


1723^0 


3126 


014306 


01 2737 


077406 


172302 


3127 


014314 


01 2737 


077406 


172304 


3128 


014322 


012737 


077406 


172306 


3129 


014330 


005037 


172310 




3130 


014334 


0C5037 


172312 




3131 


014340 


0C5037 


172314 




3132 


014344 


012737 


077406 


172316 


3133 


014352 


005037 


172340 




3134 


014355 


012737 


000200 


172342 


3135 


014364 


005037 


1723'' i 




3136 


014370 


005037 


172346 




3137 


014374 


005037 


172350 




3138 


014400 


0C5037 


172352 




3139 


014404 


005037 


172354 




3140 


014410 


012737 


007600 


172356 


3141 


014416 


012737 


000001 


177572 


3142 


014424 


000207 






3143 










3144 










3145 










3146 










3147 










3148 


014426 


012767 


000001 


165.10 


3149 


014434 


005067 


165106 




3150 


014440 


005002 






3151 


014442 


016705 


165140 




3152 


014446 


005767 


164134 




3153 


014452 


001514 






3154 


014454 


005037 


172344 




3155 


0144 60 


01 2702 


040000 




3156 


014464 


036767 


165054 


165036 


3157 


014472 


001015 






3158 


014474 


036767 


165046 


1650 30 


3159 


0i4502 


00101 1 






3160 


014504 


062737 


000200 


172344 


3161 


014512 


006367 


165026 




3162 


014516 


006167 


165024 




3163 


014522 


100360 






3164 


014524 


000000 






3165 


014526 


0367-7 


165012 


165046 


3166 


014534 


001004 






3167 


014536 


036767 


165004 


165040 


3168 


014544 


001405 






3169 


014546 


01 6705 


165026 




3170 


014552 


042767 


020000 


165016 


3171 


014560 


01 3737 


1 72344 


172346 


3172 


014566 


0' 6767 


164752 


164754 


3173 


014574 


01 6767 


164746 


164750 


3174 


014502 


032705 


020000 




3175 


014606 


001505 






3176 


014610 


062737 


000200 


172346 


3177 


014616 


006367 


164726 





PARS 4, 5, AND 6 ARE UNUSED. 



MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
CLR 
MOV 
CLR 
MOV 
CLR 
CLR 
CLR 
CLR 
CLR 
MCW 
MOV 
RTS 



#200- 

#200 

#200 

#200 

@#KIP 

@#KIP 

#200 

@#KIP 

#200 

@#KIP 

@#KIP 

@>#KIP 

@#KIP 

(MKIP 

#7600 

#1 , 

PC 



1*400+UP+RW, 
1 *400+UP+RW, 
1*400+UP+RW, 
1»400+UP+RW, 
DR4 
DR5 
DR6 

1 *400+UP + RW, 
ARO ! 
@#KIPAR1 : 
AR2 : 
AR3 
AR4 
AR5 
AR6 

, @#KIPAR7 
@>#SRO 



##KIPDRO 
ia#KIPDR1 
##KIPDR2 
(MKJPDR3 



SET KIPDRO = RW UP 200 

SET KIPDR1 = RW UP 200 

SET KIPDR2 » RW UP 200 

SET KIPDR3 = RW UP 200 



BLOCKS 
BLOCKS 
BLOCKS 
BLOCKS 



{g>#KIPDR7 ;SET KIPDR7 ■ RW UP 200 

MAP PARO INTO BANKO 

MAP PARI INTO BANK1 

MAP PAR2 INTO BANKO 



MAP PAR7 INTO I/O BANK 
ENABLE MEMORY MANAGEMENT 
RETURN 



MEMORY ADDRESS POINTER INITIALIZATION ROUTINES. 



MOV 

CLR 

CLR 

MOV 

TST 

BEO 

CLR 

MOV 

BIT 

BNE 

BIT 

ENE 

ADD 

ASL 

ROL 

BPL 

HALT 

BIT 

BNE 

BIT 

BEQ 

M'-/ 

BIC 

MOV 

MOV 

MOV 

BIT 

BEQ 

ADD 

ASL 



#BITO. B 
BITPT+2 
R2 

BLKMSK, R! 
MMAVA 
10$ 

@#KIPAR2 
#40000, R. 
BITPT, T 



2$ 

3ITPT+2, VSTMAP+2 



SET POINTER TO EANKO 
CLEAR HI 64K BANK POINTERS 
SET ADDRESS POINTER TO 
RESET R5 TO BLOCK MASK. 
CHECK FOR MEM MGMT AVAILABLE 
BRANCH I F NO MEM MGMT 
SET UP 3RD PAR TO BANKO 
RESET VIRTUAL ADR POINTER 
CHECK IF THIS BANK TO BE TESTED 
BRANCH IF MATCH 
CHECK IN HI MAP 



; BRANCH IF MATCH 
@#KIPAR2 ; UPDATE MEM MGMT, THIRD PAR. 

;UPDATE LO POINTER TO NEXT BANK. 

; . . .HI POINTER. 

;BR IF MORE. 
;FATAL ERROR!!! NO 4K BANK FOUND? 
LADMAP ;CHECK IF LAST BANK. 
LAST BANK. 



2$ 

#200, 

BITPT 

BITPT+2 

1$ 

BITPT, 

3$ 

BITPT+2.LADMAP+2 ;CHECK IF LAST 3ANK. 

4$ ;BR IF NOT LAST BANK. 

LADMSK, R5 ;SET MASK TO FIND LAST ADR. 

#20000, TMPLAD ;MAKE SURE VIRTUAL LAST ADR IN BANK 2. 

@#KIPAR2,@#KIPAR3 ;COPY CURRENT PAR INTO FORTH PAR. 

BITPT, TMPPT ;COPY BITPT. ..LO 64K. 

BITPT+2, TMPPT+2 ;...HI 64K. 

#BIT13, R5 ;CHECK FOR A BLOCK SIZE OF 8K. 

21S ^BRANCH IF NOT 8K. 

#200, <§>#-IPAR3 ;UP DATE FORTH PAR. 

TMPPT ;UPDATE LO POINTER TO NEXT 4K BANK. 
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3178 


014622 


006167 


164724 






ROL 


TMPPT+2 




3179 


014626 


100473 








BMI 


20S 




3130 


014630 


036767 


164714 


164672 




BIT 


TMPPT , 


TSTMAP 


3181 


014635 


0C1004 








BNE 


6$ 




3182 


014640 


036767 


164706 


164564 




BIT 


TMPPT+2 


TSTMAP+2 


3183 


014646 


00 1760 








BEQ 


5$ 




3184 


014650 


036767 


164674 


164/24 


6$: 


BIT 


TMPPT, 


LADMAP 


3185 


014656 


001004 








BNE 


7$ 




3186 


014660 


036767 


164666 


164716 




BIT 


TMPPT+2 


, LADMAP+2 


3187 


014666 


001455 








BEQ 


21$ 




3188 


014670 


016705 


164704 




7$: 


MOV 


LADMSK, 


P5 


3189 


014674 


052767 


020000 


164674 




BIT 


#20000, 


TMPLAD 


3190 


014702 


000447 








BR 


21$ 




3191 


















3192 


014704 


036767 


164634 


164616 


10$: 


BIT 


BITPT, 


TSTMAP 


3193 


014712 


001006 








BNE 


11$ 




3194 


014 714 


062702 


020000 






ADD 


#20000, 


R2 


3195 


014720 


106367 


164620 






AS'.B 


BITPT 




3196 


014724 


100367 








BPL 


10$ 




3197 


014726 


000000 








HALT 




;FATAL EF 


3198 


014730 


016767 


164610 


164612 


11$: 


MOV 


BITPT, 


TMPPT 


3199 


014736 


036767 


164602 


164636 




BIT 


BITPT, 


LADMAP 


3200 


014744 


001021 








BNE 


12$ 




3201 


014746 


0327.'5 


020000 






BIT 


#BIT13, 


R5 


3202 


014752 


001423 








BEQ 


21$ 




3203 


014754 


106367 


164570 






ASLB 


TMPPT 




3204 


014760 


100416 








BMI 


20$ 




3205 


014762 


036767 


164562 


164540 




B. ." 


TMPPT , 


TSTMAP 


3206 


014770 


001412 








BEQ 


20$ 




3207 


014772 


1 1 2767 


00001 1 


164557 




MOVB 


#1 1 , 


FLAG8K 


3208 


015000 


0~6767 


164544 


164574 




BIT 


TMPPT , 


LADMAP 


3209 


015006 


0014C3 








BEQ 


20$ 




3210 


015010 


016705 


164564 




12$: 


MOV 


LADMSK, 


R5 


3211 


015014 


000402 








BR 


21$ 




3212 


015016 


01 2705 


017777 




20$: 


MOV 


#MASK4K 


,R5 


3213 


015022 


056767 


164516 


164520 


21$: 


BIS 


BITPT , 


TMPPT 


3214 


015030 


056767 


164512 


164514 




BIS 


BITPT+2 


, TMPPT+2 


3215 


015036 


036767 


164502 


164524 




BIT 


BITPT , 


FADMAP 


3216 


015044 


001004 








BNE 


22$ 




3217 


015046 


036767 


164474 


164516 




BIT 


BITPT+2 


.FADMAP+2 


3218 


015054 


00 1450 








BEQ 


INITEX 




3219 


015056 


016702 


164502 




22$: 


MOV 


TMPFAD, 


R2 


3220 


015062 


000445 








BR 


INITEX 




3221 


















J222 


015064 


016705 


164516 




INITDN 


MOV 


BLKMSK, 


R5 


3223 


015070 


005002 








CLR 


R2 




3224 


015072 


0C5767 


163510 






TST 


MMAVA 




3225 


015075 


CO 14 11 








BEQ 


31$ 




3226 


015100 


0'. 2767 


100000 


164440 




MOV 


#SIT15, 


BITPT+2 


3227 


015106 


0-5067 


164432 






CLR 


BITPT 




3228 


015112 


012737 


007600 


172344 




MOV 


#7600, 


€>#KIPAR2 


3229 


015120 


00 04 C 3 








BR 


32$ 




3230 


















3231 


01512 2 


012767 


0004.0 


1644 14 


31$: 


MOV 


#BIT8, 


BITPT 


3232 


015130 


Oi 2767 


015152 


1644 16 


32$: 


MOV 


#33$, 


MMORE 


3233 


015136 


C66767 


163436 


1644 10 




ADD 


RELOCF, 


MMORE 



. . .HI POINTER. 

BR IF NO MORE. 

CHECK IF BANK TO BE TESTED. 

BRANCH IF A MATCH. 

;CHECK FOR HI 64K BANKS. 

BRANCH IF NO MEMORY 

CHECK IF LAST BANK. 

BRANCH IF A MATCH 

;CHECK HI 64K 

BR IF NOT LAST BANK. 

RESET MASK TO FIND LAST ADR. 

MAKE SURF LAST ADDRESS IS IN BANK 3. 

BR TO FINISH UP. 

CHECK IF THIS BANK TO BE TESTED. 
BR IF MATCH. 

UPDATE PHYSICAL ADR PNTR TO NEXT BANK. 
UPDATE BANK POINTER TO NEXT BANK. 
BR IF MORE BANKS. 
!ROR! ! ! NO 4K BANK FOUND? 
COPY BANK POINTER. 
CHECK IF LAST BANK. 
BR IF LAST BANK. 
CHECK FOR 8K BLOCK SIZE. 
BRANCH IF SMALLER BLOCK SIZE. 
POINT TO NEXT BANK. 
BRANCH IF OVERFLOW. 
CHECK IF BANK TO BE TESTED. 
BRANCH IF NOT TO BE TESTED. 
SET 8K BLOCK SIZE FLAG. 
CHECK FOR LAST BANK. 
BR IF NOT LAST BANK. 
RESET MASK TO FIND LAST ADR. 
SKIP MASK RESET. 
RESET MASK TO 4K BLOCK SIZE. 
SET TMPPT FOR FLAGING LAST BANK. 

CHECK IF FIRST ADDRESS NEEDS TO BE SET. 

BR IF FIRST BANK. 

;CHECK HI 64K. 

BR IF NOT FIRST BANK. 

RESET ADDRESS POINTER TO FIRST ADR. 



RESET R5 TO CURRENT BLOCK MASK. 
INIT ADDRESS POINTER. 
CHECK FOR MEM MGMT 
BRANCH IF NO MEM MGMT 
SET POINTER TO TOP BIT 



;SET PAR TO TOP OF MEM 
; BRANCH TO COMMON AREA 

;SET UP BANK POINTER 

;SET "MMDOWN" EXIT ADDRESS. 

;ADD OFFSET 



CZQW1CF0 
CZQMCF.P11 
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3234 

3235 

3236 

3237 

3238 

3239 

3240 

3241 

3242 

3243 

3244 

3245 

3246 

3247 

3248 

3249 

3250 

3251 

3252 

3253 

3254 

3255 

3256 

3257 

3258 

3259 

3260 

3261 

3262 

3263 

3264 

3265 

3266 

3267 

3268 

3269 

3270 

3271 

3272 

3273 

3274 

3275 

3276 

3277 

3278 

3279 

3280 

3281 

3282 

3283 

3284 

3285 

3286 

3287 

3288 

3289 



015144 
015150 
015152 
015160 
015162 
0151 70 
015172 
015176 
015202 



015204 

015212 " 

015214 

015222 

015224 

015230 

015234 

015236 

015242 

015250 

015254 

015260 

015262 

015270 

015272 

015300 

015302 

01531Q 

015312 

015320 

015322 

015326 

015334 

015342 

015350 

015354 

015356 

015364 

015372 

015376 

015402 

015404 

015412 

C15414 

015422 

015424 

015432 

015434 

015442 

015444 



004767 
OCOOOO 
036767 
00100 1 
026767 
001402 
016702 
010467 
000204 



036767 
0C1122 
036767 
001 1 16 
016705 
CC5767 
0C1515 
012702 
062737 
0C6367 
0C6167 
1C0577 
036767 
001004 
036767 
001760 
036767 
001004 
036767 
001405 
016705 
042767 
016767 
016787 
032705 
001530 
013737 
062737 
006367 
006167 
1C0513 
036767 
001004 
036767 
001760 
036767 
001004 
036767 
001475 
016705 



164366 164422 33$: 



164360 164414 



164376 
164352 



164340 

164332 

164356 
163P52 

040000 
000200 
164270 
164266 

164256 

164250 

164236 

164230 

164252 
020000 
164204 
164200 
020000 

172344 
000200 
164152 
164150 

164140 

164132 

164120 

1641 12 

164130 



3^$: 
INITEX: 



JSR 

HALT 

BIT 

BNE 

BIT 

BEQ 

MOV 



PC, 

BITPT, 

34S 

BITPT+2, 

INITEX 

LSTADR, 

R4, 

R4 



MMDQWN ; ROUTINE 
;FATAL ERROR! ! ! 



TO SEARCH DOWNWARD FOR TOP MEM BANK 
NO MEM INDICATED IN MEM MAP ABOVE 8K! 



{CHECK FOR NON BOUNDRY LAST ADDR. 

;BR IF LAST BANK FLAG FOUND. 

. {CHECK FOR NON BOUNDRY LAST ADDR. 

;BR IF NO LAD FLG FOUND. 

{SET UP R2. 

;PUT RETURN PC INTO "MMORE" 

•.RETURN 



COMMON UPWARDS ADDRESSING ROUTINE 

FINDS NEXT EXISTING 4K BANK AND UPDATES POINTERS. 

GOES TO ADDRESS IN "MMC.'c" IF MORE BANKS, 

DOES STRAIGHT EXIT WHE'. ALL MEMORY HAS BEEN DONE. 



*****«*«* 



164370 MMUP: 
16436? 



164240 

164232 

164272 25: 

164264 

3S: 
164242 
164206 4S: 
164202 



172346 
172346 55: 



164116 6$: 
1641 10 
164150 7S: 
164142 

85 : 



BIT 
BNE 
BIT 
BNE 
MOV 
TST 
BEO 
MOV 
ADD 
ASL 
ROL 
BMI 
BIT 
BNE 
BIT 
BEO 
BIT 
BNE 
BIT 
BEQ 
MOV 
BIC 
MOV 
MOV 
BIT 
BEQ 
MOV 
ADD 
ASL 
ROL 
BMI 
BIT 
BNE 
BIT 
BEQ 
BIT 
BNE 
BIT 
BEO 
MOV 



LADMAP 



TMPPT, 

10$ 

TMPPT+2, LADMAP+2 

10S ; 



BLKMSK, 

MMAVA 

20$ 

#40000, 

#200, 

BITPT 

BITPT+2 

32$ 

BITPT, 



R2 
@#KIPAR2 



TSTMAP 



CHECK FOR LAST BANK FLAG. 

BR IF LAST ,BANK. 

;CHECK FOR LAST BANK FLAG. 

BR IF LAST BANK. 

RESET R5 TO BLOCK MASK. 

CHECK FOR MEM MGMT AVAILABLE 

BRANCH IF NO MEM MGMT 

RESET VIRTUAL ADR POINTER 
UPDATE MEM MGMT. THIRD PAR. 
;UPDATE LO POINTER TO NEXT BANK. 
I...HI POINTER. 
; BR IF ALL DONE. 
;CHECK IF THIS BANK EXISTS 
; BRANCH IF MATCH 

{CHECK IN HI MAP 
; BRANCH IF NO MATCH 
{CHECK FOR LAST BANK FLAG, 
•.BRANCH IF LAST BANK FLAG. 

; CHECK IF LAST EANK FLAG. 
;BR IF NOT LAST BANK. 
;RESET MASK. 

;MAKE SURE VIRTUAL LAST ADR IN BANK 2 
;COPY BITPT. . . LO 64K. 
; . . .HI 64K. 

;CHECK FOR A BLOCK SIZE OF 8K. 
; BRANCH IF NOT. 
@#KIPAR2,(?>#KIPAR3 {COPY CURRENT PAR INTO FORTH PAR. 
#200, (S4KIPAR3 ;UP DATE FORTH PAR. 

{UPDATE LO POINTER TO NEXT 4K BANK. 

;...HI POINTER. 

; BR IF NO MORE- 

;CHECK IF BANK TO BE TESTED. 

; BRANCH IF A MATCH. 

;CHECK FOR HI 64K BANKS. 
; BRANCH IF NO MEMORY 
;CHEC" FOR LAST BANK FLAG. 
; BRANCH IF A MATCH 

{CHECK HI 64K 
;BR IF NO LAST BANK FLAG. 
{RESET MASK TO FIND LAST ADDRESS. 



BITPT+2, TSTMAP+2 

1$ 

BITPT, LADMAP 

3$ 

BITPT+2, LADMAP+2 

4$ 

LADMSK, R5 

#20000, TMPLAD 

BITPT, TMPPT 

BITPT+2, TMPPT+2 

#BIT13, R5 

31$ 



TMPPT 

TMPPT+2 

30$ 

TMPPT 

7$ 

TMPPT+2, TSTMAP+2 

55 

TMPPT, LADMAP 

8$ 

TMPPT+2, LADMAP+2 

31$ 

LADMSK, R5 



TSTMAP 
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3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
3302 
3303 
3304 
3305 
3306 
3307 
3308 
3309 
3310 
3311 
3312 
3313 
3314 
3315 
3316 
3317 
3318 
3319 
3320 
3321 
3322 
3323 
3324 
3325 
3326 
3327 
3323 
3329 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 
3340 
3341 
3342 
3343 
3344 
3345 



015450 
015455 



052767 
000467 



015470 
015474 
015476 
015500 
015504 
015510 
015514 
015520 
015522 
015530 
015532 
015540 
015542 
015546 
015554 
015560 
015562 
015566 
015570 
015576 
015600 
015606 
015614 
015622 
015624 
015630 
015532 
015536 
015644 
015652 
015656 



015660 005767 

015664 001402 

015666 004767 

015672 000207 



015674 
015702 
015704 
015712 
015714 
015720 



C"6767 

001004 
036767 
001404 
026702 
001052 



020000 164120 



015460 026702 
015464 001064 
015466 000474 



106267 
001407 
103455 
105067 
162702 
052702 
1C6367 
1C0457 
036767 
001767 
036767 
001402 
016705 
016767 
032705 
001426 
1C6367 
100421 
036767 
001415 
036767 
112767 
036767 
001403 
016705 
0C0402 
012705 
055767 
056767 
016716 
0002C7 



163740 
000011 
163724 

163750 

017777 
163702 
163676 
163676 



164412 
001744 



163644 

163636 
163644 



#20000, 
31$ 



TMPLAD ;SET VIRTUAL ADR TO BANK 3. 



164053 
Q40000 
020000 
1640^4 

164018 



164032 
163772 
020000 



21$: 
22$: 



164000 
164042 



163754 163732 



163774 
163743 
163760 



163704 
163709 



30$: 

31$: 



CMP 
BNE 
BR 

ASRB 

BEO 
BCS 
CLR8 
SUB 
ADD 
ASLB 
BMI 
BIT 
BEO 
BIT 
BEQ 
MOV 
MOV 
BIT 
BEO 
ASLB 
BMI 
BIT 
BEQ 
BIT 
MOVB 
BIT 
BEQ 
MOV 
BR 
MOV 
BIS 
BIS 
MOV 
RTS 
BEFORE FI 

: TST 
BEO 
JSR 

: RTS 



R2 
R2 



TMPLAD, R2 

31$ 

32$ 

FLAG8K 
22$ 
30$ 
FLAG8K 

#40000, 

#20000, 

BITPT 

32$ 

BITPT, TST 

21$ 

BITPT, LAD 

23$ 

LADMSK, R5 

BITPT, TMP 

#BIT13, R5 

31$ 

TMPPT 

30$ 



TSTMAP 

LADMAP 
FLAG8K 
LADMAP 



TMPPT 

30$ 

BITPT 

#1 1 , 

BITPT 

30$ 

LADMSK, R5 

31$ 

#MASK4K.R5 

BITPT, TMPPT 

BITPT+2. TMPPT+2 



MMORE, 
PC 
NAL EXIT, 
MPRX 
33$ 
PC, 
PC 



(SP) 



;CHECK IF LAST ADR REACHED. 

;BR IF MORE. 

;BR IF ALL DONE. 

;SHIFT 8K FLAG 

;BR IF NOT 8K BLOCK. 

;BR IF ANOTHER 4K. 

;CLEAR OUT ALL FLAGS. 

{BACK U? 8K. 

; UPDATE PHYSICAL ADR PNTR TO NEXT BANK. 

{UPDATE POINTER. 

; BRANCH WHEN END IS REACHED. 

;CHECK IF THIS BANK EXISTS. 

; BRANCH IF NO MATCH. 

; CHECK FOR LAST BANK FLAG. 

; BR IF NO MATCH. 

{RESET MASK TO FI'O LAST ADR. 

;SET UP TMP POINTER. 

{CHECK FOR 6K BLOCK SIZE. 

{BRANCH IF SMALLER BLOCK SIZE. 

{POINT TO NEXT BANK. 

{BRANCH IF OVERFLOW. 

{CHECK IF BANK TO BE TESTED. 

{BRANCH IF NOT TO BE TESTED. 

{CHECK FOR LAST BANK FLAG. 

{SET 8K BLOCK FLAG. 

{CHECK FOR LAST BANK FLAG. 

{ BR IF NO FLAG. 

{RESET MASK TOFIND LAST ADR. 

{SET MASK TO 4K. 

{SET TMPPT FOR FINDING LAST ADR. 

{FUDGE RETURN ADDRESS TO LOOP. 
{RETURN 

ANY NON-TRAP PARITY ERRORS. 
{CHECK FOR ANY PARITY REGISTERS PRESENT. 
{BR, IF NONE. 

{CHECK FOR PARITY MEMORY ERRORS. 
{STRAIGHT RETURN. 



* MEMORY DOWNWARDS ADDRESSING SUBROUTINE. 

* FINDS NEXT LOWER 4K BANK AND UPDATES POINTERS. 

* GOES .J ADDRESS IN "MMORE" IF MORE BANKS. 

* DOES STRAIGHT EXIT WHEN ALL MEMORY HAS BEEN DONE. 



163666 MMDO..',nI: 



BIT 


BITPT, 


FADMAP 


BNE 


1$ 




BIT 


BITPT+2 


. FADMAP 


BEQ 


2$ 




CMP 


TMPFAD, 


R2 


BNE 


9$ 





{CHECK FOR FIRST ADR FLAG. 
;3R IF FIRST ADR IN THIS BANK. 
2 {CHECK FOR FIRST ADR FLAG. 
{BR IF NO FLAG 

{CHECK IF FIRST ADDRESS REACHED. 
;BR IF MORE. 
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3346 


015722 


000453 








BR 


10S 




3347 


015724 


005767 


162656 




2$: 


TST 


MMAVA 




3348 


015730 


001425 








BEQ 


6$ 




3349 


015732 


162737 


000200 


172344 


3$: 


SUB 


#200, @*KIPAR2 


3350 


015740 


006067 


163602 






ROR 


BITPT+2 




3351 


015744 


006067 


163574 






ROR 


BITPT 




3352 


015750 


103440 








BCS 


10S 




3353 


015752 


036767 


163566 


163550 




BIT 


BITPT, 


TSTMAP 


3354 


015760 


001004 








BNE 


4$ 




3355 


015762 


036767 


163560 


163542 




BIT 


BITPT+2 


TSTMAP 


3356 


015770 


001760 








BEO 


3$ 




3357 


015772 


012702 


060000 




4S: 


MOV 


#60000, 


R2 


3358 


015776 


00041 1 








BR 


7$ 




3359 


016000 


162702 


020000 




5$: 


SUB 


#20000, 


R2 


3360 


016004 


0C6267 


163534 




6$: 


ASR 


BITPT 




3361 


016010 


103420 








BCS 


10S 




3362 


016012 


036767 


163526 


163510 




BIT 


BITPT, 


TSTMAP 


3363 


016020 


001767 








BEO 


5S 




3364 


016022 


036767 


163516 


163540 


7S: 


BIT 


BITPT, 


FADMAP 


3365 


016030 


001004 








BNE 


8$ 




3366 


016032 


036767 


163510 


163532 




BIT 


BITPT+2 


, FADMAP 


3367 


016040 


001402 








BEO 


9$ 




3368 


016042 


01 6705 


163520 




8$: 


MOV 


FADMSK, 


R5 


3369 


016046 


0167, o 


163502 




9$: 


MOV 


MMORE, 


(SP) 


3370 


016052 


000207 






10$: 


RTS 


PC 





BR IF ALL DONE. 

CHECK IF MEM MGMT IS AVAILABLE 

BRANCH IF NOT 

LOWER MEM MGMT PAR BY 4K 

MOV POINTER TO NEXT LOWER BANK... HI MAP. 

. . . LO MAP. 

BR IF NO MORE. 

CHECK FOR BANK EXISTING 

BR IF BANK TO BE TESTED. 

; CHECK FOR BANK IN HI MAP. 

BR IF NOT THERE. 

SET ADR POINTER TO TOP OF BANK 

GO TO COMMON EXIT 

BACK POINTER DOWN ONE BANK 

MOVE POINTER TO NEXT LOWER BANK 

BRANCH TO EXIT IF NO MORE MEM 

CHECK IF BANK EXISTS 

BRANCH IF BANK DOESN'T EXIST 

CHECK IF FIRST BANK FLAG. 

ER IF FIRST BANK. 

;CHECK IF FIRST BANK FLAG. 

ER IF NO FLAG FOUND. 

SET UP R5 TO FIND FIRST ADDRESS. 

RESET RETURN ADDRESS 

RETURN 
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3371 








3372 








3373 








3374 








3375 








3376 


016054 


010200 




3377 


016056 


0C5067 


163076 


3378 


016062 


005767 


162520 


3379 


016066 


001417 




3380 


016070 


01 0146 




3381 


016072 


0< 3701 


172344 


3382 


016076 


006301 




3383 


016100 


0G6301 




3384 


016102 


0C6301 




3385 


016104 


006301 




3386 


016106 


0C6301 




3387 


016110 


CC6167 


163044 


3388 


016114 


0C6301 




3389 


0161 16 


006167 


163036 


3390 


016122 


060100 




3391 


016124 


01 2601 




3392 


016126 


000207 




3393 








3394 








3395 








3396 








3397 


016130 


005000 




3398 


016132 


01 0146 




3399 


016134 


01 0246 




3400 


016136 


01 6701 


163402 


3401 


016142 


016702 


163400 


3402 


016146 


006202 




3403 


016150 


0060C1 




3404 


016152 


103403 




3405 


016154 


105200 




3406 


016156 


100373 




3407 


016160 


000000 




3408 


016162 






3409 


016162 


01 2602 




34 10 


016164 


012601 




3411 


016166 


000207 




34 12 








3413 








3414 








3415 








3416 


016170 






3417 


016170 


004467 


176232 


3418 


016174 


01 0022 




3419 


016176 


030502 




3420 


016200 


001375 




3421 


016202 


00 4 767 


176776 


3422 


016206 


000207 
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.SBTTL SUBROUTINES FOR ADDRESS AND WORSE CASE NOISE TESTS. 

SUBROUTINE TO CALCULATE PHYSICAL ADDRESS AND PUT IT IN RO (BOTTOM 16 BITS). 
BITS 16 AND 17 ARE IN STMPO. 

-.VITRUAL INTO RO 

;CLEAR TEMP SAVE OF HIGH BITS 

; CHECK FOR MEM MGMT AVAILABLE 

; BRANCH IF NO MEM MGMT 

; ;PUSH R1 ON STACK 

;GET PAR TO BE ADDED TO VIRTUAL 

;SH1FT IT 6 TIMES 



;SAVE EXTRA BITS 



MOV 


R2, 


CLR 


STMPO 


Tf~ 


MMAVA 


BEQ 


1$ 


MOV 


R1 ,-(SP) 


MOV 


(MKIPAR2 


ASL 


R1 


ASL 


R1 


ASL 


R1 


ASL 


R1 


ASL 


R1 


ROL 


STMPO 


ASL 


R1 


ROL 


STMPO 


ADD 


R1 , 


MOV 


(SP)+,R1 


RTS 


PC 



; ; * 


**** 


******* 


************ 


;* 


SUBROUTINE 


TO PUT BANK 


. . „, 


** + * 


4 ****** 


i*********** 


BANKNO: 


CLR 


RO 






MOV 


R1 ,-(SP) 






MOV 


R2,-(SP) 






MOV 


BITPT, R1 






MOV 


BITPT+2, R2 


1S: 




ASR 


R2 






ROR 


R1 






BCS 


2S 






INCB 


RO 






BPL 


1$ 






HALT 


;F 


2$: 












MOV 


(SP)+,R2 






MOV 


(SPJ+.R1 






RTS 


PC 



;ADD SHIFTED PAR TO VIRTUAL 
; ;POP STACK INTO R1 

:RETURN 



INIT RO 

;PUSH R1 ON STACK 
;PUSH R2 ON STACK 
GET BANK MAP POINTER... LO 
. . .HI 64K. 
SHIFT POINTER. ..HI 
. . . LO 

BR WHEN POINTER FOUND. 
COUNT BANKS. 
ER IF NOT OVERFLOW. 
FATAL ERROR!!! NO POINTER FOUND. 

; ;PQP STACK INTO R2 
; ;POP STACK INTO r 1 
;RETURN 



* SUBROUTINE TO WRITE THE CONSTANT IN RO INTO ALL OF MEMORY. 



JSR 
MOV 
BIT 
BNE 
USR 
RTS 



INITMM INITIALIZE THE MEMORY ADDRESS POINTERS. 
(R2)+ ;MOV CONSTANT INTO MEMORY 
R2 ; CHECK FOR END OF A BLOCK. 

; BRANCH IF MORE IN CURRENT BLOCK. 
MMUP ;FIND NEXT BLOCK AND LOOP TO 1$. 

; RETUP.N 
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C2QMCF 


PI 1 


4-FEB-78 08: 19 


3423 






3424 






3425 






3426 


016210 


10 6112 


3427 


016212 


1 C 6 1 1 2 


3428 


016214 


1061 12 


3429 


1 62 1 6 


1C61 12 


3430 


016220 


1C61 12 


3431 


016222 


1C61 12 


3432 


016224 


1C61 12 


3433 


0162 25 


1061 12 


3434 


016230 


10 6122 


3435 


016232 


106112 


3436 


0162 34 


10 6112 


3437 


01G236 


1061 12 


3438 


016240 


1061 12 


3439 


016242 


1061 12 


3440 


016244 


1061 12 


3441 


016246 


106112 


3442 


016250 


106112 


3443 


016252 


106122 


3444 


016254 


0C0207 


3445 






3446 






3447 






3448 






3449 


016256 


012704 000020 


3450 






3451 


016262 


010022 


3452 


016264 


01 0022 


3453 


016266 


010022 


3454 


016270 


01 0022 


3455 






3456 


016272 


010322 


3457 


016274 


Oi 0322 


3458 


016276 


01 0322 


3459 


016300 


01 0322 


3460 






3461 


016302 


01 0022 


3462 


016304 


01 0022 


3463 


016306 


010022 


3464 


016310 


01 0022 


3465 






3466 


016312 


01 03' 2 


3457 


016314 


01 0322 


3468 


016316 


010322 


3459 


016320 


01 0322 


3470 






3471 


016322 


C05304 


3472 


016324 


001356 


3473 


016326 


0' 0046 


3474 


016330 


01 0300 


3475 


016332 


012603 


3476 


016334 


000207 



16K VER MACY11 30A(1052) 20-FEB-78 07:56 PAGE 72 
SUBROUTINES FCR ADDRESS AND WORSE CASE NOISE TESTS. 



ROUTINE TO ROTATE 'C BIT THROUGH A MEMORY LOCATION. 



ROTATE: ROLB 


(R2) 


ROLB 


(R2) 


R0L3 


(R2) 


ROLB 


(R2) 


ROLB 


(R2)' 


ROLB 


(R2) 


ROLB 


(R2) 


ROLB 


(R2) 


ROLB 


(R2) 


ROLB 


(R2) 


ROLB 


(R2) 


ROLB 


(R2) 


ROLB 


(R2) 


ROLB 


(R2) 


ROLB 


(R2) 


ROLL 


(R2) 


ROLB 


(R2) 


ROLB 


(R2)« 


RTS 


PC 



(R2)=1 

(R2)=1 

(R2)=1 

(R2)=1 

(R2)=1 

(R2)=1 

(R2)=1 

(R2)=1 

(R2)=1 

(R2)=1 

(R2)=1 

(R2)=1 

(R2)=1 

(R2)=1 

(R2) 

(R2) 

(R2)=0 

(R2) = 

RETURN 



77776 OR 
77775 OR 
77773 OR 
77767 OR 
77757 OR 
77737 OR 
77677 OR 

77777 OR 
77577 OR 
77377 OR 
76777 OR 
75777 OR 
73777 OR 
67777 OR 
57777 OR 
37777 OR 
77777 OR 
77777 OR 



000001 
000002 
000004 
OC0010 
000020 
000040 
000100 
000000 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
1C0000 
000000 



SUBROUTINE TO WRITE 3 XOR 9 PATTERN INTO 256. WORD BLOCK. 



#16. ,R4 



;EACH LOOP WRITES 256. WORDS 



MOV 


RO 


,(R2)+ 


MOV 


RO 


(R2) + 


MOV 


RO 


(R2) + 


MOV 


RO 


(R2) + 


MOV 


R3 


(R2) + 


MOV 


R3 


(R2) + 


MOV 


R3 


(R2) + 


MOV 


R3 


(R2) + 


MOV 


RO 


(R2) + 


MOV 


RO 


(R2) + 


MOV 


RO 


(R2) + 


MOV 


RO 


(R2) + 


MOV 


R3 


(R2) + 


MOV 


R3 


(R2) + 


MOV 


R3 


(R2) + 


MOV 


R3 


(R2) + 


DEC 


R4 




BNE 


2S 




MOV 


RO, 




MOV 


R3, 


fi 


MOV 


(SP)+, K 


RTS 


PC 





SAVE RO 

PUT R3 INTO RO 

PUT SAVED RO INTO R3 

RETURN 
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3477 








3478 








3479 








3480 








3481 


C16336 






3482 


016336 


01 0246 




3483 


016340 


01 0346 




3484 


016342 


01 0446 




3485 


016344 


01 2502 




3486 


016346 


0125C3 




3437 


016350 


01 2704 


020000 


3488 


016354 


012223 




3489 


016356 


0C53C4 




3490 


016360 


0C1375 




3491 


016362 


01 2704 


020000 


3492 


016366 


024243 




3493 


016370 


00 1417 




3494 


016372 


01 1267 


162526 


3495 


016376 


01 1367 


162524 


3496 


016402 


01 0267 


162512 


3497 


016406 


01 0367 


162510 


3498 


016412 


00 4767 


003222 


3499 


016416 


000023 




3500 


016420 


OOOOcO 




3501 


016422 


162705 


000004 


3502 


016426 


C00746 




3503 


016430 


005304 




3504 


0164 32 


001355 




3505 


016434 


004567 


005052 


3506 


016440 


026542 




3507 








3508 


016442 


01 0346 




3509 


016444 


004767 


006502 


3510 


016450 


01 2604 




3511 


016452 


01 2603 




3512 


016454 


01 2602 




3513 


016456 


000205 




3514 








3515 








3516 








3517 


016460 


022767 


000003 ■'52114 


3518 


0164 66 


001401 




3519 


164 70 


000000 




3520 


0164 72 






3521 


016472 


01 0046 




3522 


16474 


01 0146 




3523 


016476 


0C5767 


162104 


3524 


016502 


00 1465 




3525 


016504 


0-2737 


007600 172346 


3526 


01 6512 


0C50C0 




3527 


16514 


01 2701 


100000 


3528 


01652 


162737 


000200 172346 


3529 


016526 


006001 




3530 


0165 30 


0C6000 




3531 


016532 


103500 




3532 


016534 


030167 


162766 



SBTTL RELOCATION SUBROUTINES. 

* ROUTINE TO RELOCATE PROGRAM CODE 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

DEC 

BNE 

MOV 

CMP 

BEO 

MC / 

MOV 

MOV 

MOV 

USR 

.WORD 

HALT 

SUB 

BR 

DEC 

Bl.d 

JSR 

.WORD 

MOV 
JSR 
MOV 
MOV 
MOV 
RTS 



R2,-(SP % ;;PUSH R2 ON STACK 

R3,~(SP) ; ;PUSH R3 ON STACK 

R4,-(SP) ;;PUSH R4 ON STACK 

(R5)+. R2 ;GET FIRST LOCATION. 

(R5)+, R3 ;GET FIRST LOCATION OF DESTINATION, 

#20000, P4 ;SET UP 8K COUNTER. 

(R2)+, (R3)+ ;MOV !HE DATA. 

R4 ;COUNT THE WORDS. 

1S ;BR IF MORE. 

#20000, R4 ;RESET THE COUNTER. 

-(R2), -(R3) ;CHECK THE DATA JUST MOVED. 

3$ ;BR IF DATA CK . 

(R2), SGDDAT ;GET SOURCE DATA. 

(R3), SBDDAT ;GET DESTINATION DATA. 

R2, SGDADR ;GET SOURCE ADDRESS. 

R3, S3DADR ;GET DESTINATION ADDRESS. 

PC, SERROR ;*** ERROR *** (GO TYPE A MESSAGE) 

23 ;ERROR TYPE CODE. 

;FATAL ERROR!!! RELOCATION FAILED. 
*4. R5 ;ADJUST RETURN POINTER. 
4$ ;G0 BACK AND TRY AGAIN. 

R4 ; COUNT WORDS. 

;BR IF MORE. 
SPRINT ;G0 PRINT OUT THE FOLLOWING MESSAGE. 

; ADDRESS OF MESSAGE TO BE TYPED 

; "PROGRAM RELOCATED TO " 
-(SP) ;PUT THE DATA ON THE STACK. 
STYPAD ;DETERMINE THE PHYSICAL ADDRESS AND TYPE IT. 

; ; POP STACK INTO R4 

; ;POP STACK INTO R3 

; ;POP STACK INTO R2 

;RETURN 



R5, 
PRELOC 

R3, 
PC, 
(SPJ+.R 

(SP)+,R 

(SP)+,R2 

R5 



SUBROUTINE TO MOVE PROGRAM FROM BOTTOM TO TOP OF MEMORY. 



CMP 
BEO 
HALT 

MOV 
MOV 
TST 
BEO 
MOV 
CLR 
MOV 
SL'8 
RCR 
ROR 
BCS 



#3, PRGMAP ;CHECK THAT THE PROGRAM IS NOW IN BANKS AND 1. 
1$ ; BR IF OK 

; FATAL ERROR!!! PROG SHOULD BE IN BANKS AND 1 

RO.-(SP) ;;PUSH RO ON STACK 
R1 .~(SP) ; ;PUSH R1 ON STACK 

MMAv-A 
10$ 

#7600, <&/?KIPAR3 ;SET PAR TO TOP OF MEM 
R0 ;INIT BANK POINTER. . . LO 64K 

ABIT15, R1 ; . . .HI 64K. 

#200, @*KIPAR3 ; BACK DOWN ONE BANK. 
R1 ;MOVE POINTER... HI 64K. 

; . . LO 64K. 



90$ 
R1 , 



MEMMAP+2 ;CHECK FOR BANK EXISTS. 
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3533 


016540 


001003 




3534 


016542 


030067 


162756 


3535 


016546 


001764 ' 




3536 


016550 


0137.'? 


172346 172344 


3S37 


016556 


010046 




3538 


016560 


010146 




3539 


016562 


162737 


000200 172344 


3540 


016570 


006001 




3541 


016572 


006000 




3542 


016574 


1C3457 




3543 


016576 


0"0167 


162724 


3544 


016602 


001003 




3545 


016604 


030067 


162714 


3546 


016610 


001764 




3547 


016612 


052601 




3548 


016614 


052600 




3549 


016616 


030067 


161760 


3550 


016622' 


001044 




3551 


016624 


004567 


177506 


3552 


016630 


000000 




3553 


016632 


040000 




3554 


016634 


013737 


172"44 i 72340 


3555 


016642 


013737 


172346 172342 


3556 








3557 


016650 


01 0167 


161730 


3558 


016654 


000473 




3559 








3560 


016656 


01 2700 


000400 


3561 


016662 


0C5001 




3562 


016664 


162701 


020000 


3563 


016670 


006200 




3564 


016672 


103420 




3565 


016674 


030067 


162624 


3566 


016700 


001771 




3567 


016702 


162701 


020000 


3568 


016706 


006200 




3569 


016710 


103411 




3570 


016712 


030067 


162606 


3571 


016716 


001762 




3572 


016720 


010046 




3573 


016722 


0C6300 




3574 


016724 


052600 




3575 


016726 


030067 


161650 


3576 


016732 


001401 




3577 


016734 






3578 


016734 


000000 




3579 


016736 


010167 


000006 


3580 


016742 


004567 


177370 


3581 


016746 


000000 




3582 


016750 


000000 




3583 


016752 


010167 


161622 


3584 


016756 


060107 




3585 








3586 


016760 


060106 




3587 


016762 


01 0167 


161612 


3588 


016766 


060137 


000004 



BNE 

BIT 

BEO 

MOV 

MOV 

MOV 

SUB 

RC.*? 

ROR 

BCS 

BIT 

BNE 

BIT 

BEO 

BIS 

BIS 

BIT 

BNE 

JSR 

.WORD 

.WORD 

MOV 

MOV 



MEMMAP 



3$ 

RO, 

2$ 

«P#KIPAR3,@#KIPAR2 

RO,-(SP) 

R1 ,-(SP) 

#200, 



90S 

R1 , 

6S 

RO, 

4$ 

(SP)+, 

(SP)+, 

RO, 

90$ 



;BR IF AVAILABLE 
;CHECK FOR BANK EXISTS. 
R IF NO BANK FOUND. 
;COPY PAR 
;PUSH RO ON STACK 
; ;PUSH R1 ON STACK 
@#KIPAR2 ;BACK DOWN WITH LOW PAR. 
;SHIFT POINTER. 
; . . .LO 64K. 
;BR IF OVERFLOW. 

CHECK IF BANK EXISTS.. .HI 64K. 
;BR IF BANK EXISTS. 
;CHECK IF BANK EXISTS. ..LO 64K. 
;BR IF BANK DOESN'T EXIST, 
;QET SECOND BANK POINTER. 
; . . .LO 64K. 
;CHECK FOR CONFLICT. 

;A30RT IF DESTINATION OVERLAYS SOURCE. 
;G0 RELOCATE PROGRAM. 
;SOURCE FIRST ADDRESS. 
40000 ;D£STINATION FIRST ADDRESS. 

@#KIPAR2,(S>#KIPAR0 ;RELOCATE LO BANK 
@#KIPAR3,©#KIPAR1 ;RELOCATE HI BANK. 
PROGRAM SHOULD NOW BE EXICUTING OUT OF LAST TWO BANKS OF MEMORY. 
MOV R1, PRGMAP+2 ;RESET PROGRAM MAP. 
BR 30$ ; BR TO COMMON EXIT. 



MEMMAP+2 

MEMMAP 

R1 v 

RO 

PRGMAP 



RELOC 



10$: 
11$: 



MOV 
CLR 
SUB 
ASR 
BCS 
BIT 
BEQ 
SUB 
ASR 
BCS 
BIT 
BEO 
MOV 
ASL 
BIS 
BIT 
BEO 



#BIT8, RO 



90$ 




RO, 


MEMMAP 


11$ 




#20000, 


R1 


RO 




90$ 




RO, 


MEMMAP 


11$ 




RO, 


-(SP) 


RO 




(SP)+, 


RO 


RO, 


PRGMAP 



SET BANK POINTER TO TOP OF MEM. 

SET ADDRESS POINTER TO TOP. 

BACK DOWN ONE BANK. 

MOVE POINTER DOWN ONE BANK. 

BR IF OVERFLOW. 

CHECK IF THIS BANK EXISTS. 

BR IF NON-EXISTANT BANK. 

BACK DOWN TO NEXT BANK. 

MOV POINTER DOWN ONE BANK. 

BR IF OVERFLOW. 

CHECK IF THIS BANK EXISTS. 

BR TO START OVER IF NO LOWER BANK. 

SAVE THE POINTER. 

RESET POINTER TO HI BANK. 

SET BIT FOR LO BANK. 

CHECK FOR A PROGRAM CONFLICT. 

BR IF NO CONFLICT. 



90$: 
12$: 



HALT 

MOV 

JSR 

. WORD. 

.WORD 

MOV 

ADD 



; FATAL ERROR! 



NOT ENOUGH MEMORY?? 



SET DATA FOR RELOCATION SUBROUTINE. 

GO RELOCATE THE PROGRAM TO TOP OF MEM. 

SOURCE STARTING ADDRESS. 

DESTINATION STARTING ADDRESS. 

SET RELOCATION FACTOR IN UNRELOCATED CODE. 

JUMP TO RELOCATED PROGRAM 
PROGRAM NOW EXICUTING OUT OF TOP OF MEMORY. 

AD D R1, SP ;ADJUST THE STACK POINTER TO TOP OF MEMORY. 
MOV R1 , RELOCF ;SET THE RELOCATION FACTOR. 
ADD R1, @#ERRVEC ;ADJUST ERROR VECTOR. 



R5, 




R1 , 



13$ 
RELOC 



RELOCF 



CZQMCFO 
CZQMCF . P1 1 
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3589 
3590 
3591 
3592 
3593 
3594 
3595 
3596 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3608 
3609 
3610 
361 1 
3612 
3613 
3614 
3615 
3616 
3617 
3618 
3619 
3620 
3621 
3622 
3623 
3624 
3625 
3626 
3627 
3628 
3629 
3630 
3631 
3632 
3633 
3634 
3635 
3636 
3637 
3638 
3639 
3640 
3641 
3642 
3643 
3644 



016772 
016776 
017002 
017010 
017012 
017016 
017022 
017026 
017032 
017034 
017036 
017042 
017044 
017050 
017052 
017054 
017060 



060137 
060137 
026727 
0C1404 
060167 
060167 
062701 
066721 
0C5721 
OC 1776 
024127 
001371 
010067 
012601 
012600 
066716 
000207 



017062 
017070 
017072 
017074 
01 7100 
017102 
017106 
017114 
017120 
017122 
017124 
017130 



032767 
00 1401 
000000 
0C5767 
001417 
005037 
01 2737 
004567 
000000 
040000 
005037 
012737 



17140 
1 7144 



017160 

017162 
017164 
017166 
017172 
017176 
017200 
017202 
017206 
017 210 
017212 
017216 
017222 
017226 



000024 
0001 14 
162132 

162122 
162120 
001622 
161546 



177777 
161532 



017136 000444 



016746 
01 1667 
004567 
000000 
000000 
161607 

1616'.5 

01 0046 
012700 
166620 
0C5720 
001776 
024C27 
0" 1371 
01 2600 
161637 
161637 
161637 
026727 



14$: 

15$: 
16$: 



ADD 
ADD 
CMP 
BEO 
ADD 
ADD 
ADD 
ADD 
TST 
BEQ 
CMP 
BNE 
MOV 
MOV 
MOV 
ADD 
RTS 



SWR, 
14$ 



(MPWRVEC 
<a#PARVEC 
.#177570 



SWR 

R1, DISPLAY 
#RADTAB,R1 
RELOCF, (R1)+ 
(RD + 
16$ 

-(R1), #-1 
15$ 

RO, PRGMAP 
(SP)+,R1 
(SP)+,RO 
RELOCF, (SP) 



;ADJUST POWER FAIL VECTOR. 

;ADJUST PAPITY ERROR VECTOR. 

CHECK FOR HARDWARE SWITCH REGISTER. 

BR IF HARDWARE SWITCH REGISTER. 

ADJUST SOFTWARE SWITCH REGISTER. 

ADJUST SOFTWARE DISPLAY REGISTER. 

POINT TO THE RELATIVE RELOCATION TABLE. 

ADD RELOCATION FACTOR TO ADDRESSES IN TABLE. 

CHECK FOR INTERUM TERMINATOR. 

BR SO AS TO NOT MODIFY ZERO. 

CHECK FOR END OF TABLE. 

3R IF MORE IN TABLE. 

SET NEW PROGRAM MAP...LO 64K. 

;POP STACK INTO R1 

;POP STACK INTO RO 

ADJUST RETURN ADDRESS. 

RETURN 



SUBROUTINE TO RELOCATE PROGRAM BACK TO BANKS AND 1. 



000003 161512 RELO: 



172344 
000200 
177216 



172340 
000200 



161434 
000004 
177162 



001622 
000002 



000004 
000024 
0001 14 
161706 



BIT 

BEQ 

HALT 

TST 

BEQ 

CLR 

MOV 

JSR 

• WORD 

.WORD 

CLR 

MOV 



PRGMAP 



1$ 



MMAVA 

10$ 

@#KIPAR2 

#200, @>#KIPAR3 

R5, RELOC 



; CHECK FOR PROGRAM ALREADY IN BANKS ■ 
;BR IF NO CONFLICT. 
FATAL ERROR!!! PROGRAM ALREADY IN BANKS I 
; CHECK FOR MEM MGMT . 
; BR IF NO MEMMGMT . 
;SET PAR 2 TO BANK 0. 

SET PAR 3 TO BANK 1 . 
;G0 MOVE 8K INTO eANKS AND 1. 
;SOURCE STARTING ADDRESS. 
;DESTINATION STARTING ADDRESS. 
; RESTORE PAR TO BANKO. 
;RESTORE PAR 1 TO BANK 1 . 



40000 
(P#KIPAR0 . 
#200, @#KIPAR1 
PROGRAM IS NOW EXICUTING OUT OF BANKS AND 1. 
BR 30$ ;BR TO COMMON EXIT 



MOV 

MOV 

JSR 

.WORD 

.WORD 

SUB 



RELOCF, 
(SP), 



-(SP) 
20$ 

RELOC 



PC 



PUT RELOCATION FACTOR ONTO THE STACK. 

SET DATA FOR RELOC SUBROUTINE. 

GO MOVE THE PROGRAM BACK TO BANKS A 

SOURCE STARTING ADDRESS. 

DESTINATION STARTING ADDRESS. 

JUMP TO RELOCATED PROGRAM. 



THE PROGRAM IS NOW EXICUTING OUT OF BANKS AND 1. 



2.$: 
22$: 



SUB 

MOV 
MOV 
SUB 
T!--T 
BEO 
CMP 
BNE 
MOV 
SUB 
SUB 
SUB 
CMP 



(SP), SP ;RESET THE STACK POINTER. 

RO.-(SP) ;;PUSH RO ON STACK 

#RADTAB,R0 ;SET UP POINTER TO RELATIVE ADDRESS TABLE. 

2(SP), (R0)+ ;RESET ADDRESSES TO UNRELOCATED VALUES. 

(R0)+ ;CHECK FOR TERMINATORS. 

22$ ;BR OVER TERMINATORS. 

-(RO), #-1 ;CHECK FOR END OF TABLE INDICATOR. 

21$ ;BR IF MORE ADDRESSES IN TABLE. 

(SP)+,RO ;;PQP STACK INTO RO 

(SP), @#ERRVEC ; ADJUST ER?OR VECTOR. 

(SP), @#P..RVEC '.ADJUST POWER FAIL VECTOR. 

(SP), @#--ARVEC ;ADJUST PAPITY ERROR VECTOR. 

SWR, #177570 ;CHECK FOR HARDWARE SWITCH REGISTER. 



CZQMCFO 
CZOMCF.F 

3645 

3646 

3647 

3648 

3649 

3650 

3651 

3652 

3653 

3654 

3655 

3656 

3657 

3658 

3659 

3660 

3661 

3662 

3663 

3654 

3665 

3666 

3667 

3668 

3669 

3670 

3671 

3572 

3673 

3674 

3675 

3676 

3677 

3678 

3679 

3680 

3681 

3632 

3583 

3684 

3685 

3686 

3687 

3688 

3689 

3590 

3691 

3692 



1 1 
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017234 
01 7236 
017242 
017246 
017250 
017254 
017262 
017266 



017270 
017274 
017276 
017300 
017304 
017306 
017312 
017316 
017322 
017324 
017326 
017330 
017334 
017340 
017342 
017346 



017350 
017354 
017356 
017362 
017364 
017372 
017374 
017376 
017400 
017406 
017410 
017414 
017416 
017420 
017422 
017426 



OC 1404 
161667 
161667 
162616 
005067 
012767 
005067 
0C0207 



01 6700 
001001 
000000 
005767 
001402 
005037 
012701 
01 2702 
014140 
0053C2 
001375 
005067 
005767 
001402 
0C5237 
0002C7 



005767 
001024 
012700 
01 0001 
012727 
01 1020 
000776 
022626 
01 2737 
01 0046 
0127C2 
014041 
0053C2 
001375 
01 2667 
000207 



161676 
161674 

161324 
000003 
161316 



23$: 
30$: 



BEO 
SUB 
SUB 
SUB 
CLR 
MOV 



23S 

(SP). 

(SP), 

(SP}+, 

RELOCF 

#3, 

PRGMAP+ 

PC 



SWR 

DISPLAY 

ESP) 



;3R IF HARDWARE SWITCH REGISTER. 

;ADJUST SOFTWARE SWITCH REGISTER. 

;ADJUST SOFTWARE DISPLAY REGISTER, 

;ADJUST RETURN ADDRESS. 

IRESET RELOCATION FACTOR. 

;SET PROGRAM MAP TO POINT TO BANKS 

; . . .HI 64K. 

;RETURN. 



177572 
040000 
002734 



162164 
161246 



162144 
040000 
017376 000004 

025114 P00004 
002734 



THIS SUBROUTINE MOVES THE LOADER AREA BACK TO THE "TOP" QF MEMORY FROM 

WHENCE T : CAME. THE LGADER AREA IS SAVED AT THE END OF THE 8K OF 
PROGRAM CODE WHEN THE PROGRAM IS INITIALLY RUN. 

SLDR: MOV LMAD, RQ ;CHECK IF THE LOADERS WERE SAVED, 

BNE 1$ ;BR IF LOADER AREA WAS SAVED. 

HALT ;FATAL ERROR!!! CAN'T RESTORE LOADER AREA IF IT WASN'T SAVED. 

: TS~ MMAVA ; CHECK FOR MEM MGMT. 

BEO 2$ ; SKIP IF NO MEM MGMT. 

CLR @#SRO ; DISABLE MEM MGMT. 

: MOV #40000, R1 ;GET END OF 8K, ASSUME PROG NQT RELOCATED. 

MOV #1500., R2 ;GET COUNTER. 

: MOV -(R1), ~(R0) ;MOVE THE uCADER AREA. 

DEC R2 ;COUNT HOW LONG THE AREA IS. 

BNE 3$ ;5R IF NOT MORE TO MOVE. 

CLR LMAD ;CLEAR MONITOR SAVED FLAG 

TST MMAVA ; CHECK FOR MEM MGMT. 

BlJ 4$ ;BR IF NO MEM MGMT. 

INC @>#SR0 ; ENABLE MEM MGMT. 

: RTS PC ;RETURN. 



;* ROUTINE 

SAVLDR: TST 
BNE 
MOV 
MOV 
MOV 

1$: MOV 
BR 

2S: CMP 
MOV 
MOV 
MOV 

3S: MOV 
DEC 
BNE 
MOV 

4$: RTS 



TO SAVE THE LOADERS AT THE END OF 8K. 



RO, 

02$, @# 

(RO), 

1$ 

(SP)+. 

0ERRTRP 

RO, 

01500. , 

-(RO), 

R2 

3$ 

(SP)+, 



ERRVEC 
(R0) + 

(SP) + 

@pERRVEC 

-(SP) 



CHECK IF LOADERS HAVE BEEN SAVED ALREADY. 

BRANCH IF ALREADY SAVED 

GET END OF BK 

GET END OF 8K 

SET UP TIMEOUT VECTOR 

SEARCH FOR END OF MEMORY 

KEEP SEARCHING 

RESTORE STACK POINTER 

RESET TIMEOUT VECTOR. 
SAVE LAST MEMORY ADDRESS (CONTIGUOUS) 
SET UP WORD COUNTER 
SAVE THE LOADERS 
COUNT THE WORDS 
BRANCH IF MORE WORDS 
SAVE LAST MEMORY ADDRESS 
RETURN 
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.SBTTL PARITY MEMORY TRAP SERVICE AND SUBROUTINES. 

PARITY MEMORY UNEXPECTED ERROR TRAP SERVICE ROUTINE. 
FIND OUT WHICH REGISTER DETECTED THE ERPOR. 
THEN SCAN MEMORY TO SEE IF PARITY ERROR STILL SET AND REPORT LOCATION. 

GET PC OF INSTRUCTION WHICH CAUSED ERROR. 
GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
"UNEXPECTED MEMORY PARITY TRAP." 
;PUSH R1 ON STACK 
I PUSH R3 ON STACK 

GET POINTER TQ PARITY REGISTERS. 
CHECK THE PARITY R£G FOR AN ERROR FLAG. 
BR IF THIS REGISTER SHOWS THE ERROR. 
CHECK FOR TABLE TERMINATOR. 
BR IF MORE REGISTERS. 
*** ERROR *** (GO TYPE A MESSAGE) 
CATED ERROR 
ERROR TYPE CODE. 
EXIT 

CHECK FOR TABLE TERMINATOR. 
3R IF NO MORE PARITY REGISTERS, 
CHECK THE PARITY REG FOR AN ERROR FLAG. 
BR IF NO EFROR FLAG- 

GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
"MORE THAN ONE ERROR FOUND." 

SET UP VALUES FOR ERROR PRINTING- 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 
GO SCAN MEMORY FOR BAD PARITY. 
GO LOOK FOR MORE ERRORS. 

;PQP STACK INTO R3 
;POP STACK INTO R1 
RETURN. 

ROUTINE TO ENABLE PARITY ERROR ACTION ON MA/MF PARITY MEMORIES 
THIS ROUTINE IS MEANT TO CATCH UNEXPECTEDS 

CHECK IF ANY PARITY REGISTERS EXIST. 

EXIT IF NO PARITY REGISTERS. 

CHECK FOR INHIBIT PARITY ERROR DETECTION, 

EXIT IF NO PARITY ERROR DETECTION. 

CHECK IF PROGRAM RELOCATED OUT OF BANK 0. 

BR IF PR03 IN BANK 0. 

CHECK IF VECTORS PROTECTED- 

BR IF VECTOR AREA PROTECTED. 

CHECK FOR STARTING ADDRESS ABOVE THE VECTORS. 

EXIT IF VECTORS EXPOSED TO TESTING. 



3693 










3694 










3695 










3596 










3697 










3698 










3699 


017430 


01 1667 


16146S 




3700 


017434 


004567 


004052 




3701 


017440 


026501 






3702 










3703 


017442 


01 0146 






3704 


017444 


01034S 






3705 


017446 


016703 


162156 




3706 


017452 


0C5733 






3707 


017454 


10 0415 






3708 


017456 


005713 






3709 


017460 


001374 






3710 
3711 
3712 


017462 


004767 


002152 




017466 


000024 






3713 


017470 


000417 






3714 


017472 


005713 






3715 


017474 


0C1415 






3716 


017476 


005733 






3717 


017500 


100374 






3718 


017502 


004567 


004004 




3719 


017506 


026572 






3720 










3721 


017510 








3722 


017510 


004767 


000610 




3723 


017514 


004767 


002120 




3724 


017520 


0C0025 






3725 


017522 


004767 


000216 




3726 


017526 


000761 






3727 


017530 








3728 


017530 


012603 






3729 


017532 


012601 






3730 


017534 


000002 






3731 










3732 










3733 










3734 










3735 










3736 


017536 


0C5767 


162534 




3737 


017542 


001434 






3738 


017544 


032777 


000100 


161366 


3739 


017552 


001030 






3740 


017554 


0C5767 


161020 




3741 


017560 


00 1410 






3742 


017562 


032777 


000040 


161350 


3743 


017570 


001004 






3744 


017572 


026727 


161764 


001000 


3745 


017600 


1C3415 







PtSRV: 


MOV 


(SP), 


SBDADR 




JF~! 


R5. 


SPRINT 




.WORD 


UNEXPT 






MOV 


R1,-(SP 






MOV 


R3,-(SP 






MOV 


.MPRX, 


R3 


1$: 


TST 


0(R3)+ 






BMI 


3$ 






TST 


(R3) 






BNE 


1$ 






JSR 


PC, 


SERROR 


;***ERROR*** 


NO REGISTER INDI 




.WORD 


24 






BR 


4$ 




2$: 


TST 


(R3) 






BEO 


4$ 






TST 


@(R3)+ 






BPL 


2$ 






JSR 


R5, 


SPRINT 




.WORD 


MTOE 




3$: 








64$: 


JSR 


PC, 


SPRNTQ 




JSR 


PC, 


SERRQR 




.WORD 


25 






JSR 


PC, 


PSCAN 




BR 


2$ 






MOV 


(SP)+,R3 






MOV 


(SP)+,R1 






RTI 







TST 


MPRX 


BEO 


MAMF2 


BIT 


#SW6, 


BNE 


MAMF2 


TST 


RELOCF 


BEO 


SETAE 


BIT 


tfSW5, 


BNE 


SETAE 


CMP 


FSTADR, 


BLO 


MAMF2 
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3746 
3747 
3748 
3749 
3750 
3751 
3752 
3753 
3754 
3755 
3756 
3757 
3758 
3759 
3760 
3761 
3762 
3763 
3764 
3765 
3766 
3767 
3768 
3769 
3770 
3771 
3772 
3773 
3774 
3775 
3776 
3777 
3778 
3779 
3780 
3781 
3762 
3783 
3784 
3785 
3786 
3787 
3788 



017602 
017610 
017614 
017616 
017622 
017626 
017630 
017632 
017634 



017636 
017642 
017644 
017652 
017654 
017656 
017662 
017664 
017666 
017674 
017676 
017702 
017706 
017710 
017712 
017716 
017716 
017722 
017726 
017730 
017734 
017736 
017740 
017742 



016737 162030 
005037 . 000116 
010346 



000114 SETAE: 



016703 
052733 
0C5713 
001374 
012603 
000207 



005767 
001437 
032777 
001033 
010346 
016703 
005733 
1C0023 
032773 
001010 
0G4767 
0C4767 
0C0026 
000411 
004767 

004767 
004767 
000027 
004767 
005713 
001351 
012603 
000207 



162006 
000001 



1624C j 
000100 



000001 177776 



000422 
001732 



MOV 
CLR 
MOV 
MOV 
BIS 
TST 
BNE 
MOV 
RTS 

SUBROUTINE 

** * * * * * * * * * 4 

CKPMER: TST 

BEQ 

BIT 

BNE 

MOV 

MOV 
1$: TST 

BPL 

BIT 

BNE 

JSR 

JSR 

.WORD 

BR 

JSR 



.PESRV, WPARVEC ;SET PARITY ERROR TRAP VECTOR 



©0PARVEC+2 

R3.-(SP) 

•MPRX, R3 

0AE, #(R3)+ 

(R3) 

MAMF1 

(SP)+,R3 

PC 

*«t#**********$ifi* 

TO CHECK 

********! 

MPRX 

4$ 

#SW6, 

4$ 

R3,-(SP 

.MPRX, 

@(R3)+ 

3$ • 

#BITO, 

2$ 

PC, 



;PRIORITY LEVEL ON TRAP 

;;PUSH R3 ON STACK 

;6ET PARITY REGISTER TABLE POINTER. 

;SET ACTION ENABLE BIT IN PARITY REG 

;CHECK FOR END OF TABLE. 

;BR IF MORE PARITY REGISTERS. 

;;POP STACK INTO R3 

; RETURN. 



000402 
001712 



2$: 
65$: 



JSR 

JSR 

.WO«T) 

JSR 

TST 

BNE 

MOV 

RTS 



PC, 
26 
3$ 
PC, 



PC, 
27 



+ ***$**** -a******************************* 
PARITY REGISTERS FOR ERRORS THAT DIDN'T TRAP. 

fee*************************************** 

CHECK IF ANY PARITY REGISTERS EXIST. 

BR IF NO PARITY REGISTERS. 

CHECK FOR INHIBIT PARITY ERROR CHECKING. 

BR IF PARITY ERROR CHECKING INHIBITED. 

;PUSH R3 ON STACK 

GET PARITY REG TABLE POINTER. 

CHECK THE PARITY ^lEG FOR AN ERROR FLAG. 

BR IF NO EPROR 

CHECK IF A TRAP SHOULD HAVE OCCURRED. 

BR IF NO ACTION ENABLE. 

SET UP VALUES FOR ERROR PRINTING. 

*** ERROR *+* (GO TYPE A MESSAGE) 

ERROR TYPE CODE. 

PSCAN ;G0 SCAN ALL MEMORY FOR PARITY ERRORS. 



@SWR 



@-2(R3) 



SPRNTQ 
SERROR 



SPRNTQ 
SERROR 



(R3) 
1$ 

(SP)+,R3 
PC 



SET UP VALUES FOR ERROR PRINTING. 

*** ERROR »** (GO TYPE A MESSAGE) 

ERRO 1 ? TYPE CODE. 

GO SCAN ALL MEMORY FOR PARITY ERRORS. 

CHECK FOR TABLE TERMINATOR. 

BR IF MORE. 

;POP STACK INTO R3 

RETURN. 



** ****************** **************************** ************** 
THIS SUBROUTINE WILL SCAN ALL OF MEMORY LOOKING FOR BAD PARITY. 
TYPE OUT ALL LOCATIONS FOUND TO BE BAD. AND WRITE BACK INTO THE 
LOCATIONS IN ORDER TO RESTORE GOOD PARITY. 



****** 



******* 
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3789 


017744 






3790 


017744 


01 0046 




3791 


017746 


010146 




3792 


017750 


010246 




3793 


017752 


010346 




3794 


017754 


010446 




3795 


017756 


013746 


000114 


3796 


017762 


013746 


0001 16 


3797 


017766 


004567 


003520 


3798 


017772 


026635 




3799 








3800 


017774 


012700 


000001 


3801 


020000 


005001 




3802 


020002 


005002 




3803 


020004 


005004 




3804 


020006 


0C4767 


000256 


3B05 


020012 


012737 


000116 000114 


3806 


020020 


005037 


0001 16 


3807 


020024 


005767 


160556 


3808 


020030 


001406 




3809 


020032 


013746 


172344 


3810 


020036 


005037 


172344 


3811 


020042 


012702 


040000 


3812 


020046 


0300o7 


161452 


3813 


020052 


001003 




3814 


020054 


030167 


161446 


3815 


020060 


001442 




3816 


020062 






3817 


020062 


010146 




3818 


020064 


11 1201 




3819 


020066 


C:6703 


161536 


3820 


020072 


005733 




3821 


02C074 


100024 




3822 


020076 


005704 




3823 


020100 


001003 




3824 


020102 


005367 


161004 


3825 


020106 


005204 




3826 


0201 10 






3827 


020110 


004767 


000210 


3828 


0201 14 


004767 


001520 


3829 


020120 


000030 




3830 


020122 


1 1 1212 




3831 


020124 


005053 




3832 


020126 


105712 




3833 


020130 


005733 




3834 


020132 


100005 




3835 


020134 


004567 


003352 


3836 


020140 


026700 




3837 








3838 


020142 


005073 


177776 


3839 


020146 


005713 




3840 


020150 


001350 




3841 


020152 


0052C2 




3842 


020154 


032702 


017777 


3843 


020160 


001341 




3844 


020162 


012601 







MOV 


RO,-(SP 


; 




MOV 


R1,-(SP 


; 




MOV 


R2,-(SP 


; 




MOV 


R3,-(SP 


; 




MOV 


R4,-(SP 


; 




MOV 


§>#114,- 


SP) ; 




MQV 


@>#116,- 


SP) ; 




JSR 


R5, 


$PRINT ; 




.WORD 


SCANM 






MOV 


#BITO, 


RO ; 




CLR 


R1 


; 




CLR 


R2 






CLR 


R4 






JSR 


PC, 


CLR PAR ; 




MOV 


#116, 


@>#114 ; 




CLt! 


©># 1 16 






TST 


MMAVA 


; 




BEQ 


1$ 


; 




MOV 


@#KIPAR2,-(SP) 




CLR 


§>#KIPAR2 ; 




MOV 


#40000, 


R2 ; 


1$: 


BIT 


RO, 


MEMMAP ; 




BNE 


2$ 






BIT 


R1 , 


MEMMAP+2* 




BEQ 


10$ 




2S: 










MOV 


R1 ,-(SP 


; 


3$: 


MOVB 


(R2), 


R1 ; 




MOV 


.MPRX, 


R3 ; 


4$: 


TST 


@(R3)+ 


; 




BPL 


6$ 






TST 


R4 






BNE 


5$ 


; 




DEC 


$ERTTL 






INC 


R4 




5$: 








64$: 


JSR 


PC, 


SPRNTQ ; 




JSR 


PC, 


SERROR ; 




.WORD 


30 






MOVB 


(R2), 


(R2) ; 




CLR 


@-(R3) 






TSTB 


(R2) 






TST 


@>(R3) + 






BPL 


6$ 






JSR 


R5, 


SPRINT ; 




.WORD 


PEWNC 






CLR 


@-2(R3) 


; 


65: 


TST 


(R3) 


; 




BNE 


4$ 






INC 


R2 






BIT 


#MASK4K 


R2 ; 




BNE 


3$ 






MOV 


(SP)+,R 


; 



;PUSH RO ON STACK 

;PUSH R1 ON STACK 

;PUSH R2 ON STACK 

;PUSH R3 ON STACK 

;PUSH R4 ON STACK 

;PUSH @*114 ON STACK 

;PUSH @#1 16 ON STACK 

GO PRINT OUT THE FOLLOWING MESSAGE. 

ADDRESS OF MESSAGE TO BE TYPED 

"SCANNING MEMORY FOR BAD PARITY." 

SET BIT POINTER TO FIRST BANK. 

CLR HI 64K POINTER. 

INIT ADDRESS POINTER. 

INIT ERROR DETECTED FLAG. 

CLEAR THE PARITY REGISTERS. 

HALT IF ANOTHER PARITY TRAP. 

CHECK FOR MEMORY MANAGEMENT. 
BR IF NO MEM MGMT. 

;;PUSH @#KIPAR2 ON STACK 
INIT MEM MGMT TO POINT TO BANK 0. 
SET ADR POINTER TO PAR2. 
CHECK IF THIS BANK OF MEM EXISTS. 
BR IF THIS BANK EXISTS. 
; CHECK HI 64K MAP. 
BR IF THIS BANK DOESN'T EXIST. 

;PUSH R1 ON STACK 

READ THE LOCATION TO SEE IF IT HAS A PARITY ERROR. 

SET UP POINTER TO PARITY REGISTERS. 

CHECK FOR THE ERROR FLAG. 

BR IF NO EPROR FLAG. 

CHECK IF FIRST ERROR, THIS SCAN. 

BR IF MORE THAN ONE ERROR FOUND. 

ADJUST ERROR COUNT. 

SET FLAG TO INDICATE ERROR FOUND. 

SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

REWRITE THE LOCATION TO CLEAR BAD PARITY. 
CLEAR THE ERROR FLAG. 

CHECK IF THE PARITY ERROR WAS CLEARED. 
CHECK FOR THE ERROR FLAG. 
BR IF IT IS OK. 

GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
PARITY ERROR WILL NOT CLEAR." 
CLEAR OUT THE PARITY ERROR FLAG. 
CHECK FOR THE END OF REG ADR TABLE. 
BR IF MORE PARITY REGISTERS. 
GO TO NEXT MEMORY ADDRESS. 
CHECK FOR END OF 4K BANK. 
BR IF MORE MEMORY THIS BANK. 
;POP STACK INTO R1 



CZQMCF 


0-124 


K MEMORY 


EXERCISER 


CZQMCF. 


Pi 1 1 


4-PEB-78 


08: 19 


3845 


020164 


000402 




3846 


020166 


062702 


020000 


384 7 


0201 72 


005767 


160410 


3848 


0201 76 


0014' 3 




3849 


020200 


062737 


000200 1 


3850 


020206 


0; 2.702 


040000 


3851 


020212 


CC6300 




3852 


020214 


006101 




3853 


020216 


10 0313 




3854 


020220 


01 2637 


172344 


3855 


020224 


O r Q402 




3856 


020226 


1063C0 




3857 


020230 


100306 




3858 


020232 


0C5704 




3859 


02C234 


001003 




3860 


020236 


0C4567 


003250 


3861 


020242 


025706 




3862 


020244 






3863 


020244 


012637 


0001 15 


3864 


020250 


012637 


0001 14 


3865 


02C254 


012604 




3866 


020256 


012603 




3867 


020260 


012602 




3868 


020262 


012601 




3869 


020264 


012600 




3870 


020266 


000207 




3871 








3872 








3873 








3874 








3875 


C20270 






3876 


020270 


01 0346 




3877 


020272 


01 6703 


161332 


3878 


020276 


CC5713 




3879 


020300 


001402 




3880 


020302 


005033 




3881 


020304 


000774 




3882 


020306 






3883 


020306 


01 2603 




3884 


020310 


000207 




3885 








3886 








3887 








3888 








3889 








3890 ' 








3891 


020312 


01 0267 


160602 


3892 


020316 


005067 


160602 


3893 


020322 


000430 




3894 








3895 


020324 


014367 


16063C 


3896 


020330 


01 3367 


160626 


3897 


020334 


0004C2 




3898 








3899 


020336 


01 1367 


160616 


3900 


020342 


010267 


160552 
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BR 


11$ 


10$: 


ADD 


*20000, R2 


11$: 


TST 


MMAVA 




BEO 


12$ 




ADD 


#200, (£>#KIPA 




MOV 


040000, R2 




ASL 


RO 




Rf . 


R1 




BPL 


1$ 




MOV 


(SP)+,<a#KIPAR2 




BR 


20$ 


12$: 


ASLB 


RO 




BPL 


1$ 


20$: 


TST 


R4 




BNE 


21$ 




JSR 


R5, SPRINT 




.WORD 


NOPES 


21$: 








MOV 


(SP)+,@#1 16 




MOV 


( sp) + ,@># 1 14 




MOV 


(SP)+,R4 




MOV 


(SP)+,R3 




MOV 


(SP)+. R2 




MOV 


(SPJ+.R1 




MOV 


(SP)+,RO 




RTS 


PC 



;BR TO CHECK FOR NEXT BANK. 
;SKIP BANKS THAT AREN'T THERE. 
; CHECK FOR MEM MGMT . 
; BR IF NO MEM MGMT. 
2 ; UPDATE MEM MGMT REG TO NEXT 4K. 
;RESET ADDRESS POINTER TO BEGINNING OF BANK. 
;UPDATE BANK POINTER. 
; . . .HI 64K. 
; BR IF MORE BANKS. 

;;POP STACK INTO @#KIPAR2 
;G0 CHECK IF ANY ERRORS FOUND. 
;UPDATE POINTER TO NEXT BANK. 
;BR IF MORE BANKS. 

;CHECK IF ANY PARITY ERRORS DETECTED. 
;BR IF ERRORS DETECTED. 
;G0 PRINT OUT THE FOLLOWING MESSAGE. 
; ADDRESS OF MESSAGE TO BE TYPED 

; ;POP STACK INTO @*' 1 16 

; ;POP STACK INTO @0 1 1 4 

; ;POP STACK INTO R4 

; ;POP STACK INTO R3 

; ;POP STACK INTO R2 

; ;POP STACK INTO R1 

; ;POP STACK INTO RO 
; RETURN. 



ROUTINE TO CLEAR ALL PARITY REGISTERS PRESENT 

CL.RPAR: 

; ;PUSH R3 ON STACK 

;GET PARITY REGISTER TABLE POINTER. 

;CHECK FOR THE TABLE TERMINATOR. 

;BR IF DONE ALL PARITY REGISTERS. 

;CLEAR THE PARITY REGISTER. 

;BR FOR MORE 

; ; POP STACK INTO R3 
; RETURN. 

.SBTTL SUBROUTINES TO SET UP DATA FOR ERROR PRINTOUT ROUTINE. 

THESE ROUTINES ARE USED TO TRANSFER DATA TO COMMON TAG AREA (.SCMTAG) 
FOR ERROR PRINTOUT BY .SERROR & .SERRTYP ROUTINES FROM **SYSMAC**. 



MOV 


R3,-(SP) 


MOV 


.MPRX, R3 


TST 


(R3) 


BEO 


2$ 


CLR 


@(R3)+ 


BR 


1$ 


MOV 


(SP)+,R3 


RTS 


PC 



SPRNT: 


MOV 
CLR 
BR 


R2, 

SGDDAT 
SPRNTB 


SGDADR 


SPRNTQ: 


MOV 
MOV 
BR 


~(R3), 

@(R3)+, 

SPRNTO 


STMPO 
STMP1 


SPRNTP: 
SPRNTO: 


MOV 
MOV 


(R3), 
R2, 


STMPO 
SGDADR 



;SAVE THE ADDRESS UNDER TEST. 
; SHOULD BE DATA IS "0". 



;GET THE PARITY REGISTER ADDRESS. 
;GET THE CONTENTS OF THE PARITY REG. 



;GET THE PARITY REGISTER ADDRESS. 
;GET THE MEMORY ADDRESS BEING TESTED 



CZQMCFO 


0-1 24K MEMORY 


EXERCISER, 16K VER 




MACY1 1 


30A(1052 


20-FEP 


-78 07:56 PAGE ei 


CZQMCF. 


P11 14-FEB-78 


08: 19 SUBROUTINES TO 


SET UP DATA FOR ERROR PRINTOUT ROUTINE. 


3901 
3902 
3903 


020346 


000414 








BR 


SPRNTA 




BR TO 


COMMON SECTION. 


020350 


01 0267 


160544 SPRNT1: 


MOV 


R2, 


$GDADR 


GET THE MEMORY ADDRESS BEING TESTED 


3904 


020354 


005367 


160540 






DEC 


SGDADR 




ADJUST IT FOR PRINTOUT. 


3905 


020360 


000407 








BR 


SPRNTA 




BR TO 


COMMON SECTION. 


3906 






















3907 


020362 


010367 


160572 SPRNT3: 


MOV 


R3, 


STMPO 


GET THE DATA IN R3 . 


390B 


020336 


01 0267 


160526 SPRNT2: 


MOV 


R2, 


SGDADR 


GET THE MEMORY ADDRESS BEING TESTED 


3909 


020372 


162767 


000002 160520 






SUB 


#2, 


SGDADR 


ADJUST IT FOR PRINTOUT. 


3910 


020400 


010067 


160520 SPRNTA: 


MOV 


RO, 


SGDDAT 


GET WHAT THE DATA SHOULD BE 


391 1 


020404 


010167 


160516 SPRNTB: 


MOV 


R1 , 


S3DDAT 


GET WHAT THE DATA WAS 


3912 
3913 
3914 


020410 


000207 








RTT 


PC 




RETURN TO ENTER ERROR ROUTINES 








;, 


**** 


******* 


********** 


******** 


********************************* 


3915 








* 


SUBROUT T NE 


TO TYPE OUT A MAP 


OF 4K 


BANK. 


3916 








* 


RO 


POINTS 


TO THE MAP UPON EN 


rERING 


THIS ROUTINE. 


3917 










**** 


******* 


********** 


******** 


* * * * * * 


************************** 


3918 


020412 


005710 




'YPMAP: 


T£ ; 


(RO) 




CHECK 


IF ANY MEMORY IN MAP...LO 64K. 


3919 


020414 


001007 








BNE 


1$ 




BR IF 


MEMORY IN MAP. 


3920 


020416 


005760 


000002 






TST 


2(R0) 




. . .HI 


64K. 


3921 


020422 


001004 








BNE 


1$ 




BR IF 


MEMORY IN MAP. 


3922 


020424 


004567 


003062 






JSR 


R5, 


SPRINT 


GO PRINT OUT THE FOLLOWING MESSAGE. 


3923 


020430 


026266 








.WORD 


NOMEM 




ADDRESS OF MESSAGE TO BE TYPED 


3924 


















"NO MEMORY FOUND." 


3925 


020432 


000475 








BR 


6$ 




EXIT 




3926 


020434 






"■: 














3927 


020434 


010146 








MOV 


R1 ,-(SP 




;PUSH 


R1 ON STACK 


392B 


020436 


010246 








MuV 


R2,-(SP 




;PUSH 


R2 ON STACK 


3929 


020440 


010346 








MOV 


R3,-(SP 




;PUSH 


R3 ON STACK 


3930 


02C442 


01 0446 








MOV 


R4,-(SP 




; PUSH 


R4 ON STACK 


3931 


020444 


0: 27C1 


000001 






MOV 


tfBITO, 


R1 


SET UP BANK POINTER. . . LO 64K. 


3932 


020450 


005002 








CLR 


R2 




. . .HI 


64K. 


3933 


020452 


0127C3 


177777 






MOV 


0-1 , 


R3 


SET UP ADDRESS POINTER TO -1. 


3934 


020456 


01 0304 








MOV 


R3, 


R4 


HI BITS OF ADDRESS AS WILL. 


3935 


020460 


030110 


: 


1$: 




BIT 


R1 . 


(Ru) 


CHECK 


THE MAP FOR THIS BANK. 


3936 


020462 


001014 








BNE 


3$ 




BR IF 


THIS BANK PRESENT. 


3937 


020464 


030260 


000002 






BIT 


R2, 


2(R0) 


CHECK 


HI 64 K MAP. 


3938 


020470 


00101 1 








BNE 


3$ 




BR IF 


THIS BANK PRESENT. 


3939 


020472 


105703 








TSTB 


R3 




CHECK 


FOR PREVIOUS PRINTOUT. 


3940 


020474 


001042 








BNE 


5$ 




BR IF 


ALREADY TYPED "TO" 


3941 


020476 


1627C3 


000001 






SUB 


#1 , 


R3 


SACK UP TO LAST ADR OF PREVIOUS BANK 


3942 


020502 


0056C4 








SBC 


R4 




. . .HI 


ADDRESS BITS. 


3943 


020504 


004567 


003002 






JSR 


R5, 


SPRINT 


GO PR 


NT OUT THE FOLLOWING MESSAGE. 


3944 


020510 


025517 








.WORD 


TO 




ADDRESS OF MESSAGE TO BE TYPED 


3945 


020512 


000410 








BR 


4$ 




GO TO 


TYPE THE ADDRESS. 


3946 


020514 


1057C3 


; 


JS: 




TSTB 


R3 




CHECK 


FOR PREVIOUS TYPEOUT. 


3947 


020516 


001431 








BEO 


5$ 




BR IF 


ALREADY TYPE "FROM". 


3948 


020520 


062703 


000001 






ADD 


#1 , 


R3 


POINT 


TO FIRST ADDRESS OF THIS BANK. 


3949 


020524 


0C5504 








ADC 


R4 




. . .HI 


BITS OF ADDRESS. 


3950 


02C526 


004567 


002760 






JSR 


R5, 


SPRINT 


GO PRINT OJT THE FOLLOWING MESSAGE. 


3951 


020532 


025507 








.WORD 


FROM 




ADDRESS OF MESSAGE TO BE TYPED 


3952 


020534 




i 


S: 














3953 


020534 


01 0346 








MOV 


R3,-(SP) 




;PUSH 


R3 ON STACK 


3954 


020536 


010446 








MOV 


R4,-(SP) 




;PUSH 


R4 ON STACK 


3955 


020540 


006303 








ASL 


R3 




BIT IE 


INTO C-BIT 


3956 


020542 


006104 








ROL 


R4 




BIT IE 


INTO R4. 
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3957 


020544 


006003 




3958 


020546 


01 0446- 




3959 








3960 








3961 








3962 


020550 


013746 


177776 


3963 


020554 


004767 


004104 


3964 


020560 


003 




3965 


020561 


000 




39S6 


020562 


010346 




3967 








3958 








3969 








3970 


020564 


01 3746 


177776 


3971 


020570 


004767 


004070 


3972 


020574 


005 




3973 


020575 


001 




3974 


020576 


01 2604 




3975 


020600 


01 2603 




3976 


020602 


062703 


020000 


3977 


020606 


005504 




3978 


020610 


006301 




3979 


020612 


006102 




3980 


020614 


103321 




3981 


020616 


012604 




3982 


020620 


012603 




3983 


020622 


012602 




3984 


020624 


01 2601 




3985 


020626 


000207 




3986 








3987 








3988 








3989 








3990 








3991 








3992 








3993 








3994 








3995 








3996 








3997 








3998 








3999 








4000 








4001 . 


020630 






4002 








4003 








4004 


020630 


013746 


177776 


4005 


020634 


004767 


001524 


4006 


020640 


012504 




4007 


020642 


010516 




4008 


020644 


032777 


040000 


4009 


020652 


001 1 17 




4010 








401 1 


020654 


000416 




4012 









ROR 
MOV 



R3 

R4,' 



THE NEXT TWO INSTRUCTIONS 
WIHTOUT USING A "TRAP" INS 

MOV @#PSW, -(SP) 

JSR PC STYPOS 

.L.'TE 3 

.BYTE 

MOV R3,-(SP) 

THE NEXT TWO INSTRUCTIONS 
WIHTOUT USING A "TRAP" INS' 



MOV 

JSR 

.BYTE 

.BYTE 

MOV 

MOV 

ADD 

ADC 

ASL 

ROL 

BCC 

MOV 

MOV 

MOV 

MOV 

rts 



-(SH 
ST/POS 



(SP)+,R4 
(SP)+,R3 
#20000, R3 



R2 

2$ 

(SP)+,R4 

(SP)+,R3 

(SP)+,R2 

(SP)+,R1 

PC 



RESTORE BITS 14-0. 
;SAVE R4 FOR T^PEOUT 
;TYPE ADDRESS BITS 21-15 
PROVIDE AN INTERFACE TO THE STYPOS ROUTINE 
TRUCTION AS CALLED FOR BY **SYSMAC**. 

PUT THE PROCESSOR STATUS ON THE STACK 
GQ TO THE SUBROUTINE 

TYPE 3 DIGIT(S) 

SUPPRESS LEADING ZEROS 

SAVE R3 FOR TYPEOUT 
, .TYPE ADDRESS BITS 14-0 
PROVIDE AN INTERFACE TO THE STYPOS ROUTINE 
TRUCTION AS CALLED FOR BY **SYSMAC**. 

PUT THE PROCESSOR STATUS ON THE STACK 
GO TO THE SUBROUTINE 

TYPE 5 DIGIT(S) 

TYPE LEADING ZEROS 

POP STACK INTO R4 

POP STACK INTO R3 
UPDATE TO NEXT BANK. 
. . .HI ADDRESS BITS. 
SHIFT POINTER. . , LO 64K. 
, . .HI 64K. 
BR IF MORE BANKS. 

POP STACK INTO R4 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO R1 
RETURN. 



.SBTTL SCOPE HANDLER ROUTINE 

.*****»*****,.******** + *.****** + ************ + ***************** + * + * 

*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

*AND LOAD THE TEST NUMBERl STSTNM) INTO THE DISPLAY REG. ( DISPLAY<7 :0> ) 

*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<1 5: 08> 

•THE SWITCH OPTIONS PROVIDED 3Y THIS ROUTINE ARE: 

*SW14=1 LOOP ON TEST 

*SW11=1 INHIBIT ITERATIONS 

*SW09*1 LOOP ON ERROR 

*SW08=1 LOOP ON TEST IN SWR<4:0> 

*CALL 

* SCOPE ;;SCOPE=IQT 

SSCOPE: 

•* THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE SCKSWR ROUTINE 

•* WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SY5MAC**. 

PUT THE PROCESSOR STATUS ON THE STACK 

GO TO THE SUBROUTINE 

SAVE MINIMUM BLOCK MASK NEXT TE$T. 

PUT RETURN PC ONTO STACK, SIMULATE JSR PC. 

; LOQ a ON PRESENT TEST? 

;YES IF SW14s1 

ESTER##### 

;IF RUNNING ON THE *'XOR" TESTER CHANGE 

;THIS INSTRUCTION TO A "NOP" (N0P=24Q) 



MOV 




@#PSW, -(SP) 


JSR 




PC, SCKSWR 


MOV 




(R5)+, R4 


MOV 




R5. (SP) 


1S: BI T 




#BIT14,@SWR 


BNE 




SOVER 


;0*0*#$TART 


OF 


CODE FOR THE XO 


SXTSTR: BR 




SS 
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SEQ 0165 



4013 
4014 

4015 
4016 

4017 
4018 
4019 
4020 
4021 
4022 
4023 
4024 
4025 
4026 
4027 
4028 
4029 
4030 
4031 
4032 
4033 
4034 
4035 
4036 
4037 
4038 
4039 
4040 
4041 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4C5B 
4059 
4060 
4061 
4062 
4063 
4064 
4065 
4066 
4067 
4068 



020656 
020662 
020670 
020674 
020700 
020702 
020704 
020710 
020712 
020712 
C20720 
020722 
020726 
020732 
020736 
020740 
020744 
020746 
020754 
020756 
020764 
C20766 
020774 
020776 
021002 
021006 
021010 
021016 
021020 
021024 
021026 
021032 
021040 
021042 
021050 
021056 
021062 
210 70 
021074 
021 100 



013746 000004 
012737 020702 



021 



C4 



021 1 12 
021120 
021 124 
021 126 
021 130 
021 134 
021 142 
021 146 
021 150 
021 156 
021 160 
021 164 
021 1 72 
021 176 
021200 



0C5737 
012637 
000466 
022626 
012637 
000426 

032777 

001407 
017746 

04271.6 
122667 
001465 
105767 
001421 
126767 
101015 
022777 
001404 
016767 
0C0446 
105067 
005067 
000415 
C32777 
00101 1 
005767 
001406 
005267 
026767 
002024 
012767 
0-6767 
105267 
116767 
Oi 1667 
Oi 1667 
005067 
1 12767 
01 6777 
01 6716 
0205 5 
00 1402 
000167 
Oi 2767 
005767 
001404 
126727 
1 ?3002 
006267 
O 1 6767 
005767 
00 1430 
032777 



177060 
000004 



000400 160220 



160212 
000340 
1601*. ; 



160127 
160154 
1601 12 



160034 
160112 



000470 
037777 

160044 



157726 000021 



160422 
160372 

157402 



MOV 
MOV 
TST 
MOV 
BR 
CMP 
MOV 
BR 
;*##*0END QP 
BIT 
BEO 
MOV 
BIC 
CMP8 
BEO 
TSTB 
BEO 
CMPB 
BHI 
BIT 
BEO 
MOV 
BR 



160101 
160162 



004000 160i22 3$ 



160052 
160132 

000001 
000552 
160020 
160014 
160012 
160010 
160066 
000001 
157764 
157762 



15: 



160003 
160022 



160444 1si: 



160372 
157732 



CLRB 
CLR 
BR 
BIT 

BNE 
TST 
BEO 
INC 
CMP 
BGE 
MCV 
MOV 

Ssvlad; inc<j 

MOVB 

MCV 

MOV 

CLR 

MOVB 

SOVER: MOV 
MOV 

INSERT: CMP 
BEO 
JMP 
MOV 
TC-T 
BEO 
CMPB 
BHIS 
A5R 
MOV 
TST 
BEO 
BIT 



@#ERRVEC,-(SP) 

#5$,©#ERRV£C 

@#177060 

(SP) + ,i?*ERRVEC 

SSVLAD 

(5P)+.(SP)+ 

(SP)+,@#ERRVEC 

7$ 

CODE FOR THE XQR 

#BIT08,<SSWR 

2$ 

<PSWR,-(SP) 

0SSWRMK. (SP) 

(SP)+,STSTNM 

SOVER 

SERFLG 



3$ 

SERMAX, SERFLG 

#BIT09,(PSWR 

4$ 

SLPERR.5LPADR 

SOVER 

SERFLG 

STIMES 

1$ 

0BIT11 ,©SWR 

1$ 

$PASS 

1$ 

SICNT 

STIMES, SICNT 

SOVER 

#1 .SICNT 

SMXCNT, STIMES 

STSTNM 

STSTNM.SiESTN 

(SP) ,$LPADR 

(SP).SLPERR 

SESCAPE 

#1 , SERMAX 

STSTNM, ©DISPLAY 

SLPADR.(SP) 

R5, (SP) 

1$ 

ENDINS 

#37777, BLKMSK 

SPASS 

25 

STSTNM, #21 

3S 

BLKMSK 

FSTADR, TMPFAD 

RELOCF 

4$ 

#SWQ5, @SWR 



SAVE THE CONTENTS OF THE ERROR VECTOR 

SET FOR TIMEOUT 

TIME OUT ON XOR? 

RESTORE THE ERROR VECTOR 

GO TO THE NEXT TEST 

CLEAR THE STACK AFTER A TIME OUT 

RESTORE THE ERROR VECTOR 

LOOP ON THE PRESENT TEST 

ESTERA0### 

LOOP ON SPEC. TEST? 

BR IF NO 

SET DESIRED TEST NUM. FROM SWR 

STRIP AWAY UNDESIRED BITS 

ON THE RIGHT TEST? 

BR IF YES 

HAS AN ERROR OCCURRED? 

BR IF NO 

MAX. ERRORS FOR THIS TEST OCCURRED? 

BR IF NO 

LOOP ON ERROR? 

BR IF NO 

SET LOOP ADDRESS TO LAST SCOPE 

ZERO THE ERROR FLAG 

CLEAR THE NUMBER OF ITERATIONS TO MAKE 

ESCAPE TO THE NEXT TEST 

INHIBIT ITERATIONS? 

BR IF YES 

IF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 

INCREMENT ITERATION COUNT 

CHECK THE NUMBER OF ITERATIONS MADE 

BR IF MORE ITERATION REQUIRED 

REINITIALIZE THE ITERATION COUNTER 

SET NUM3EP OF ITERATIONS TO DO 

COUNT TEST NUMBERS 

SET TEST NUMBER IN APT MAILBOX 

SAVE SCOPE LOOP ADDRESS 

SAVE ERROR LOOP ADDRESS 

CLEAR THE ESCAPE FROM ERROR ADDRESS 

ONLY ALLOW 0NEC1) ERROR ON NEXT TEST 

DISPLAY TEST NUMBER 

FUDGE RETURN ADDRESS 
CHEQK FOR LOOP QN TEST. 
BR IF START NEXT TEST. 
JMP IF LOOP ON LAST TEST. 
SET 8K BQUNDRY MASK. 
CHECK FOR PASS 0. 
BR IF PAS5 
CHECK IF l\ SECTION 3. 
BR IF IN SECTION 3. 
RESET BOUNORY TO 4K. 
GET FIRST ADDRESS. 
CHECK IF PPG RELOCATED. 
BR IF NOT RELOCATED. 
CHECK IF LOG 0-776 TO BE PROTECTED. 
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4069 

4070 

4071 

4072 

4073 

4074 

4075 

4076 

4077 

4078 

4079 

4080 

4081 

4082 

4083 

4084 

4085 

4086 

4087 

4088 

4089 

4090 

4091 

4092 

4093 

4094 

4095 

4096 

4097 

4098 

4099 

4100 

4101 

4102 

4103 

4104 

4105 

4106 

4107 

4108 

4109 

41 10 

41 1 1 

41 12 

41 13 

41 14 

41 15 

41 16 

4117 

41 18 

41 19 

4120 

4121 

4122 

4123 

4124 



02 



021252 

021256 
021260 
021266 
021 274 
021302 
021310 
021316 
021322 
021324 
021332 
021334 
021342 
021346 
021350 
021352 
021356 
021360 
021364 
021370 
021376 
021400 
021406 
021414 
021420 
021422 
021426 
021434 
021436 
021444 
021452 
021460 
021462 
021470 
021472 
021500 
021502 
021506 
021510 
021514 
021516 
021516 
021522 



001424 
026727 
1C3C20 
01 2767 
052767 
026727 
101006 
004567 
026737 

016716 

000207 

016767 

01 6767 

016767 

046767 

046767 

005767 

00101 1 

032767 

001405 

042767 

005067 

0057u4 

001503 

030467 

0C1416 

050467 

005267 

032767 

0. 1006 

046767 

046767 

030467 

001414 

040467 

032767 

001006 

046767 

046767 

036767 

001004 . 

036767 

001404 

026767 

101406 

005767 

001017 

005767 

001014 

004567 
026763 



160350 001000 



001000 
000001 
160334 



160366 

160310 
160242 
160236 
157274 
157270 
157670 

000003 

177774 
160164 



150200 
160174 
017777 

160164 
160160 
160156 

160150 
017777 

160140 
160134 
1601 12 

160104 

160100 

160022 

160016 

001770 



1603 36 
160334 



16Q3!0 
160234 
160230 
160220 
160214 



160176 
160166 



160122 
1601 16 



160C64 
160060 
<50122 12$: 

1601 14 

160064 13$: 

14$: 



021524 005046 

021526 116716 157350 



BEQ 

CMP 

SHIS 

MOV 

BIS 

CMP 

BHI 

JSR 

.WORD 

MOV 

RTf 

MOV 

MOV 

MOV 

BIC 

BIC 

TS~ 

BNE 

BIT 

BEO 

BIC 

CLR 

TST 

BEQ 

BIT 

BEO 

8*3 

INC 

BIT 

BNE 

BIC 

BIC 

BIT 

BEQ 

BIC 

BIT 

BNE 

BIC 

BIC 

BIT 

BNE 

BIT 

BEO 

CMP 

BLOS 

TST 

BNE 

TST 

BNE 

JSR 
.WORD 

CLR 
MOVB 



4$ 

TMPFAD, 

4$ 

01000, 

6BIT0, 

LSTADR, 

4$ , 

R5, 

NOMTST 

•TST32, 
PC 

LSTADR, 
5AVTST, 



TMPFAD 
FADMAP 
V1000 



(SP) 



TMPLAD 
TSTMAP 
SAVTST+2. TSTMAP+2 

PRGMAP, TSTMAP ; DON 



PRGMAP+2.TSTMAP+2 

$PASS 

10$ 

#3, TSTMAP 

10$ 

#177774, TSTMAP 

TSTMAP+2 



;BR IF SW NOT SET. 
;CHECK IF NOT BEING TESTED. 
;BR IF ALREADY PROTECTED. 
;RESET FIRST ADDRESS. 
;SET FLAG IN FIRST BANK. 
;CHECK IF GONE PAST LAST ADR. 
; BR IF ENOUGH MEMORY. 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 
;ADDRESS OF MESSAGE TO BE TYPED 
; "NO MEMORY TESTED" 
;ADJUST RETURN ADR FOR ABORT. 
;ABORr. 

;GET LAST ADDRESS. 
;GET TEST MAP, LO 64K. 
HI 64K. 
TEST OVER THE PROGRAM. 



;CHECK FOR FIRST PASS 

;BR IF NOT FIRST PASS. 

;CHECK IF FIRST TWO BANKS AVAILABLE. 

;NOT TESTING FIRST 2 BANKS. 

;CLR ALL BUT FIRST 2 BANKS. 



R4 



;CHECK FOR A MINIMUM BLOCK SIZE. 

;BR IF NO MIN BLOCK SIZE. 

;CHECK IF FIRST ADR ON BLOCK BOUNDRY. 

;BR IF FIRST ADR ON BLOCK BOUNDRY. 

;ADJUST FIRST ADR TO END OF BLOCK. 

; FIRST ADR TO FIRST ADR OF NEXT BLOCK. 

;CHECK IF FIRST ADR REACHED 4K BOUNDRY. 

;BR IF NOT ON 4K BOUNDRY. 

;DON'T TEST FIRST BANK. 



20$ 

R4, TMPFAD 

11$ 

R4, TMPFAD 

TMPFAD 

0MASK4K, TMPFAD 

11$ 

FADMAP, TSTMAP 

FADMAP+2.TSTMAP+ 

TMPLAD ;CHECK IF LAST ADR ON BLOCK BOUNDRY. 

;BR IF ON BLOCK BOUNDRY. 

; ADJUST LAST ADR DOWN TO NEXT BLOCK BOUNDRY. 

; CHECK IF ADJUSTED TO 4K BOUNDRY. 

;BR IF NOT ON 4K BOUNDRY. 

;SKIP TESTING LAST BANK. 
LADMAP+2, TSTMAP+2 

FADMAP, LADMAP ;CHECK IF FIRST AND LAST IN SAME BANK. 
13$ ;BR IF IN SAME BANK. 

FADMAP+2, LADMAP+2 ;... UPPER 64K. 



12$ 

R4, TMPLAD 

V MASK4K, TMPLAD 

12$ 

LADMAP, TSTMAP 



■ ') 



14S 

TMPLAD, TMPFAD 

15$ 

TSTMAP 

16$ 

TSTMAP+2 

16$ 

R5, SPRINT 



~(SP) 
$TSTNM, (SP) 



;BR IF FIRST AND LAST NOT SAME BANK. 

; CHECK IF ANY MEMORY LEFT, 

;BR IF NO MEMORY TO TEST. 

; CHECK IF ANY BANKS LEFT TO TEST!! 

;BR IF TEST MAP NOT EMPTY. 

; CHECK FOR ANY BANKS. 

;BR IF TEST MAP NOT EMPTY. 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 

;ADDRESS OF MESSAGE TO BE TYPED 

; "SKIPPING TEST tt" 

;CLEAR THE WORD ON THE STACK. 

;PUT THE DATA ON THE STACK. 





MOV 


@0PSW, 


-(SP) 




JSR 


PC, 


STYPOS 




.BYTE 


3 






.BYTE 


1 






BR 


ENDINS 




16$: 


ATI 


#4, 


(SP) 




ADD 


#4, 


SLPADR 


20$: 


MOV 


#MASK4K 


, FA'DMSK 




MOV 


TMPFAD, 


R5 


21$: 


BIC 


R5, 


FADMSK 




ASL 


R5 






BNE 


21$ 






MOV 


#MASK4K 


, LA r -MSK 




MOV 


TMPLAD, 


R5 


22$: 


BIC 


R5, 


LADMSK 




ASL 


R5 






BNE 


22$ 




ENDINS: 


RTS 


PC 




SMXCNT: 


4 
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THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE STYPOS ROUTINE 
WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**. 

;PUT THE PROCESSOR STATUS ON THE STACK 

;G0 TO THE SUBROUTINE 

;TYPE 3 DIGITS. 

;TYPE LEADING ZEROS. 

;RETURN TO SKIP TEST. 

;SKIP THE SKIP ON RETURN. 

;ADJUST THE LOOP ADR PAST THE SKIP. 

;GET 4K MASK. 

;GET FIRST ADR. 

;CLR MASK ABOVE LOWEST BIT OF FIRST ADR. 

;MOVE LOWEST BIT UP ONE. 

; LOOP UNTIL OVERFLOW. 

;SET MASK BITS 

;GET LAST ADR. 

;CLR ALL MASK BITS ABOVE LOWEST BIT IN LAST ADR. 

;MOVE LOWEST BIT OF LAST ADR UP ONE. 

;LOOP UNTIL OVERFLOW. 

;EXIT SCOPE ROUTINE BACK TO TEST. 

;;MAX. NUMBER OF ITERATIONS 
;* THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE SCKSWR ROUTINE 
;* WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**. 

MOV @#PSW, -(SP) ;PUT THE PROCESSOR STATUS ON THE STACK 
USR PC, SCKSWR ;G0 TO THE SUBROUTINE 
.SBTTL ERROR HANDLER ROUTINE 

•THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 

*SAVE THE ERF R ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 

*AND GO TO SERRTYP ON ERROR 

*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

*SW15=1 HALT ON ERROR 

-SW13=1 INHIBIT ERROR TYPEOUTS 

"SW10=1 BELL ON ERROR 

*SW09=1 LOOP ON ERROR 

*CALL 

* ERROR N ;;ERROR*EMT AND N=ERRQR ITEM NUMBER 

SERROR: 

;* THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE SCKSWR ROUTINE 

;* WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**. 

PUT THE PROCESSOR STATUS ON THE STACK 

GO TO THE SUBROUTINE 

ADJUST POINTER PAST CODE WORD. 

;SET THE ET.ROR FLAG 

IDON'T LET THE FLAG GO TO ZERO 

IDISPLAY TEST NUMBER AND ERROR FLAG 

;5ELL ON EPROR? 

;N0 - SKIP 

GO PRINT OUT THE FOLLOWING MESSAGE. 

ADDRESS OF MESSAGE TO BE TYPED 

;COUNT THE NUMBER OF ERRORS 

;GET ADDRESS OF ERROR INSTRUCTION 

;STRIP AND SAVE THE ERROR ITEM CODE 



4125 










4126 










4127 


021532 


013746 


177776 




4128 


02153S 


0047 r-7 


003122 




4129 


021542 


003 






4130 


021543 


001 






4131 


021544 


0C0427 






4132 


021546 


062716 


000004 




4133 


021552 


062767 


000004 


157326 


4134 


021560 


012767 


017777 


160000 


4135 


021565 


0^6705 


157772 




4136 


021572 


040567 


157770 




4137 


021576 


006305 






4138 


021600 


001374 






4139 


021602 


012767 


017777 


157770 


4140 


021610 


016705 


157762 




4141 


021614 


040567 


157760 




4142 


021620 


0C6305 






4143 


021622 


001374 






4144 


021624 


000207 






4145 


021626 


000004 






4146 










4147 










4148 


021630 


013746 


177776 




4149 


021634 


0C4767 


000524 




4150 










4151 










4152 










4153 










4154 










4155 










4156 










4157 










4158 










4159 










4160 










4161 










4162 










4163 










4164 


021640 








4165 










4166 










4167 


021640 


013746 


177776 




4168 


021644 


004767 


000514 




4169 


021650 


062716 


000002 




4170 


021654 


105267 


157223 




4171 


021660 


001775 






4172 


021662 


016777 


157214 


157252 


4173 


021670 


032777 


002000 


157242 


4174 


021676 


OC 1403 






4175 


021 700 


004567 


001606 




4176 


021704 


001 174 






4177 


021706 


005267 


157200 




4178 


021712 


01 1667 


157200 




4179 


C21716 


162767 


000002 


157172 


4180 


021724 


117767 


157166 


1571S2 



MOV 


@#PSW, -(SP) 


JSR 


PC, SCKSWR 


ADD 


*2, (SP) 


INCB 


SERFLG 


BEO 


7S 


MOV 


$TSTNM, ^DISPLAY 


BIT 


*BIT10,@SWR 


BEQ 


1$ 


JSR 


R5, SPRINT 


.WOPQ 


SBELL 


INC 


SERTTL 


MOV 


(SP) ,$ERRPC 


SUB 


#2,$ERRPC 


MOVw 


@$ERRPC,$ITEMB 



Jill 



CZOMCFO 
CZQMCF.P 

4181 
4182 
4183 
4184 
4185 
41B6 
4187 
4188 
4189 
4 190 
4191 
4192 
4193 
4194 
4195 
4196 
4197 
4198 
4199 
4200 
4201 
4202 
4203 
4204 
4205 
4206 
4207 
4208 
4209 
4210 
421 1 
4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 
4220 
4221 
4222 
4223 
4224 
4225 
4226 
4227 
4228 
4229 
4230 
4231 
4232 
4233 
4234 
4235 
4236 
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021732 
021740 
021742 
021746 
021752 
021754 
021754 
021762 
021764 
021772 
021776 
021777 
022000 
022002 
022006 
022010 



022012 
022016 
022022 
022030 
022032 
022036 
022042 
022044 
022050 
022050 
022056 
022060 
022062 
022062 



022064 
022064 
022070 
022072 
022074 
022076 
022102 



0221 10 
0221 14 
022120 
022122 



032777 
0C1005 
0C4767 
004567 
001201 

122767 
001007 
116767 
0C4767 
000 
000 
000777 
0C5777 
100005 
000000 



013746 
004767 
032777 
001402 
016716 
005767 
001402 
01 6716 

022737 
001001 
000000 



020000 157200 



0001 16 
001540 



000001 157242 



157124 
002044 



177776 
000342 
001000 

157052 
157130 

157122 

014222 



004567 
001201 
0100-3 
005000 
156700 
001007 



0'. 3746 
004767 
000513 
016767 



22Si 
2$: 



BIT 
BNE 
JSR 
JSR 

• WORD 

CMPB 

BNE 

MOVB 

JSR 

.BYTE 

.BYTE 

BR 



0BIT13,@SWR 
20$ 

PC.SERRTYP 
R5, SPRIN 
SCRLF 

rfAPTENV.SENV 

2$ 

SITEMB, 21$ 

PC,$ATY4 





22S 

@SWR 



; ;SKIP TYPEOUT IF SET 

; ;SKIP TYPEGUTS 

;;G0 TO USER ERROR ROUTINE 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 

-.ADDRESS OF MESSAGE TO BE TYPED 

; ; RUNNING IN APT MODE 
;;N0,SKIP APT ERROR REPORT 
;;SET ITEM NUMBER AS ERROR NUMBER 
;;REPORT FATAL ERROR TO APT 



TST 

BPL 

HALT 

THE NEXT TWO INSTRUCTION 
WIHTOUT USING A "TRAP 



;APT ERROR LOOP 

;HALT ON EPROR 

;SKIP IF CONTINUE 

;HALT ON EPROR! 
S PROVIDE AN INTERFACE TO THE SCKSWR ROUTINE 
NSTRUCTION AS CALLED FOR BY **SYSMAC**, 



MOV 
JSR 
BIT 
BEO 
MOV 
TST 
BEO 
MOV 

CMP 
BNE 
HALT 



@#PSW, -(SP 

PC, SCKS' 

0BITO9,@SWR 

4$ 

$LPERR,(S*>) 

SESCAPE 

5$ 

SESCAPE. (SP) 

0$ENDAD,@#42 
6$ 



) ;PUT THE PROCESSOR STATUS ON THE STACK 
WR ;G0 TO THE SUBROUTINE 

;LOOP ON ERROR SWITCH SET? 

;BR IF NO 

; FUDGE RETURN FOR LOOPING 

;CHECK FOR AN ESCAPE ADDRESS 

;BR IF NONE 

; FUDGE RETURN ADDRESS FOR ESCAPE 

;ACT-11 AUTO-ACCEPT? 

; BRANCH IF NO 

;YES 



022104 016746 157006 



177776 
002570 



156770 157364 



.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 

;«THIS ROUTINE USES THE "ITEM CONTROL BYTE" (SITEMB) TO DETERMINE WHICH 
;*ERRQR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE "ERROR TABLE" (SERRTB) , 
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 

; ADDRESS OF MESSAGE TO BE TYPED 
;SAVE RO 
;PICKUP THE ITEM INDEX 

;IF ITEM NUMBER IS ZERO, JUST 
;TYPE THE PC OF THE E1R0R 
;;SAVE SERRPC FOR TYPEOUT 
; ; ERROR ADDRESS 
;* "HE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE 5TYP0C ROUTINE 
;* WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SY5MAC**. 

MOV @>#PSW, -(SP) ;PUT THE PROCESSOR STATUS ON THE STACK 
JSR PC, STY, OC ;G0 TO THE SUBROUTINE 
BR 10$ ;GET OUT 

15: MOV SERRPC, SVERPC ■ ;SET UP VIRTUAL PC FOR TYPEOUT. 



ERRTYP 








JSR 


R5, S 




.WORD 


SCRLF 




MOV 


RO.-(SP) 




CLR 


RO 




BISB 


SITEMB, RO 




BNE 


1$ 



MOV 



SERRPC, -(SP) 
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4237 


022130 


166767 


156444 


4238 


022136 


005300 




4239 


022140 


006300 




4240 


022142 


0063CD 




4241 


022144 


0C6300 




4242 


022146 


066700 


157466 


4243 


022152 


012067 


000006 


4244 


022156 


001406 




4245 


022160 


004567 


001326 


4246 


022164 


000000 




4247 


022166 


0"4567 


001320 


4248 


022172 


001201 




4249 


022174 


012067 


000006 


4250 


022200 


001406 




4251 


022202 


0C4567 


001304 


4252 


022206 


000000 




4253 


022210 


004567 


001276 


4254 


022214 


0012C1 




4255 


022216 


010146 




4256 


022220 


01 2001 




4257 


022222 


001451 




4258 


022224 


066701 


156^50 


4259 


022230 


01 2000 




4260 


022232 


066700 


156342 


4261 


022235 


105720 




4262 


022240 


001006 




4263 


022242 


013146 




4264 








4265 








4266 


022244 


013746 


177776 


4267 


022250 


004767 


002434 


4268 


022254 


000426 




4269 


022256 


1004C6 




4270 


022260 


013146 




4271 








4272 








4273 


022262 


013746 


177776 


4274 


022266 


004767 


002140 


4275 


022272 


000417 




4276 


022274 


122760 


177777 


4277 


022302 


001004 




4278 


022304 


01 3146 




4279 


022306 


004767 


002640 


4280 


022312 


000407 




4281 . 


022314 






4282 


022314 


005046 




4283 


022316 


113116 




4284 








4285 








4286 


022320 


01 3746 


177776 


4287 


022324 


004767 


002334 


4288 


022330 


003 




4289 


022331 


001 




4290 


022332 


00571 1 




4291 


022334 


001404 




4292 


022336 


004567 


001 150 



SUB 
DEC 
ASL 
ASL 
ASL 
ADD 
MOV 
BLJ 
JSR 
.WORD 
JSR 
.WORD 
MOV 
BEQ 
JSR 
.WORD 
JSR 
.WORD 
MOV 
MOV 
BEO 
ADD 
MOV 
ADD 
TSTB 
BNE 
MOV 
THE NEXT • 



RELOCF, SVERPC 



.ERRTB, RO 

(R0)+,2$ 

3$ 

R5, $PR 



R5, SPR 

SCRLF 

(R0)+,4$ 

5$ 

R5, SP.: 



R5, SPR 

SCRLF 

R1 ,- 

(R0) + 

9$ 

RELOCF, R1 

(R0)+,R0 

RELOCF, RO 

(R0) + 

7$ 

e>(R1) + .-(SP) 



(SP) 
,R1 



;MAKE VIRTUAL IF NOT ALREADY. 

JADJUST THE INDEX SO THAT IT WILL 
; WORK FOR THE ERROR TABl,E 



;FORM TABLE POINTER 

; PICKUP "ERROR MESSAGE" POINTER 

;SKIP TYPEOUT IF NO FOINTER 
;G0 PRINT OUT THE FOLLOWING MESSAGE. 

;'>EFROR MESSAGE" POINTER GOES HERE 
;G0 PRINT OUT THE FOLLOWING MESSAGE- 
;ADDRES5 OF MESSAGE TO BE TYPED 

; PICKUP "DATA HEADER" POINTER 

;SKIP TYPEOUT IF 
;G0 PRINT OUT THE FOLLOWING MESSAGE. 

;"DATA HEADER" POINTER GOES HERE 
;G0 PRINT OUT THE FOLLOWING MESSAGE. 
; ADDRESS OF MESSAGE TO BE TYPED 

;SAVE R1 

; PICKUP "DATA TABLE" POINTER 

;BR IF NO DATA TO BE TYPED 
;ADJUST POINTER 

; PICKUP "DATA FORMAT" POINTER 
;ADJUST POINTER. 

; CHECK THE FORMAT 

;BR IF NOT 16-BIT OCTAL 
;SAVE @(R1 )+ FOR TYPEOUT 



.10 INSTRUCTIONS PROVIDE AN INTERFACE TO THE STYPOC ROUTINE 



WIHTOUT USING A "TRAP" INSTRUCTION A§ CALLED FOR BY **SY5MAC** 



MOV 
JSR 
BR 



@#PSW, 

PC, 

8$ 



•(SP) 
STYPOC 



;PUT THE PROCESSOR STATUS ON THE STACK 
;G0 TO THE SUBROUTINE 



BMI 17$ ; BRANCH IF NOT DECIMAL 

MOV ®(R1) + ,-(SP) ;;SAVE -f>(R1)+ FOR TYPEOUT 
THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TQ THE STYPDS ROUTINE 
WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SY5MAC**. 



177777 17$: 



MOV 

JSR 

BR 

CMPB 

BNE 

MOV 

JSR 

BR 



@#PSW, 

PC, 

8$ 

#-1 , 

18S 

ff(R1)+ 

PC, 

8$ 



"(SP) 
STYPDS 



-(SP) 
STYPAD 



PUT THE PROCESSOR STATUS ON THE STACK 

GO TO THE SUBROUTINE 

SKIP 

CHECK FOR 18-BIT ADDRESS FORMAT. 

BR IF NOT 18-BIT ADDRESS FORMAT. 

PUT THE DATA ON THE STACK. 

DETERMINE THE PHYSICAL ADDRESS AND TYPE IT. 

SKIP 



CLR ~(SP) ;CLEAR THE WORD ON THE STACK. 

MOVB @(R1)+, (SP) ;PUT THE DATA ON THE STACK, 
THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE STYPOS ROUTINE 
WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**. 



MOV 

JSR 

.B V TZ 

• BYTE 

TST 

BEO 

JSR 



P#PSW, 
PC, 



(R1) 
9S 



-(SP) ;PUT THE PROCESSOR STATUS ON THE STACK 
STYPOS ;G0 TO THE SUBROUTINE 
;TYPE 3 DIGITS. 
;TYPE LEADING ZEROS. 

;IS THERE ANOTHER NUMBER? 
;BR IF NO 
SPRINT ;G0 PRINT OUT THE FOLLOWING MESSAGE. 



CZQMCFO 
CZQMCF. 

4293 
4294 
4295 
4296 
4297 
42S3 
4299 
4300 
4301 
4302 
4303 
4304 
4305 
4306 
4307 
4303 
4309 
4310 
431 1 
4312 
4313 
4314 
4315 
4316 
4317 
4318 
4319 
4320 
4 321 
4322 
4323 
4324 
4325 
4326 
4327 
4328 
4329 
4330 
4331 
4332 
4333 
4334 
4335 
4336 
4337 
4338 
4339 
•3 340 
4341 
4342 
4343 
4344 
4345 
4346 
4347 
4343 



022342 
C22344 

022346 
C22350 
022352 
022356 
C22360 
022362 



022364 
022372 
022374 
022400 
022402 
022406 
022412 
022416 
022420 
022426 

022430 
022434 
022436 
022436 
022442 
022444 



022450 
022454 
022450 
022464 
052466 
022470 
022472 
022476 



V.EMORY EXERCISER, 
~F£S<-78 08:19 



C22362 
CC0734 



16K VER MACY11 30A(1052) 20-FEB-78 
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012601 
Oi 2600 
004567 
001201 
000207 
0C001 1 



MOV 


(5P) + 


R 




MOV 


(SP) + 


RO 


JSR 


R5, 




SPRINT 


.WORD 


SCRLF 






RTS 


PC 






.ASCIZ 


/ 




/ 


.EVEN 









; ADDRESS OF MESSAGE TO BE TYPED 
; LOOP 

iRESTORE R1 

;RESTCRE RO 
;GQ PRINT OUT THE FOLLOWING MESSAGE. 
IADDRESS OF MESSAGE TO BE TYPED 

; RETURN 
;TAB CHARACTER. 



BTTL TTY INPUT ROUTINE 



.ENABL LSB 



022767 
OC 1 104 
105777 
100101 
1 1 7746 
042716 
022726 
001072 
126727 
001466 



000176 156546 SCKSWR: 



156540 
177600 
000007 



;*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
;*R0UTINE IS ENTERED FROM THE TRAP HANDLER. AND WILL 

;*SERVICE Thi TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
►WHEN OPERATING IN TTY FLAG MODE. 



156510 000001 



004567 001056 
02331 1 

004567 001050 

023316 

016746 155526 



0^ 3746 
004767 
004567 
023327 
0050 -5 
005046 
105777 
100375 



177776 
002230 
001026 



022500 117746 156442 
022504 042716 177600 



022510 021627 000025 

022514 001006 

022516 004567 000770 



CMP 

BNE 

TSTB 

BPL 

MOVB 

BIC 

CMP 

BNE 

CMPB 

BEO 

JSR 

.WORD 



JSR 

.wo,; 

MCV 
E NEXT 

HTOUT 
MOV 
JSR 
JSR 
.WOR! 
CLR 
CLR 
TSTB 
BPL 



#SWREG,5WR 

15$ 

(PSTKS 

15S 

@$TKB,-{SP) 

<TC177, (SP) 

#7, (SP)-r 

15S 

5AUTOB.01 

15S 

R5, SPRI 

SCNTLG 

R5, 



;;IS THE SOFT^SWR SELECTED? 

; ; BRANCH IF NO 

; ;CHAR THERE? 

;;IF NO, DON'T WAIT AROUND 

I ;SAVE THE CHAR 

; ;STRI?-OFF THE ASCII 

I ; IS IT A CONTROL G? 

; ;N0, RETURN TO USER 

;;ARE WE RUNNING IN AUTO-MODE? 

; ;BRANCH IF YES 

;G0 P<?INT OUT THE FOLLOWING MESSAGE. 
IADDRESS OF MESSAGE TO BE TYPED 



SPRINT ;G0 PRINT OUT THE FOLLOWING MESSAGE. 
SMSWR IADDRESS OF MESSAGE TO BE TYPED 

SWREG.-(SP) ;;SAVE SWREG FOR TYPEOUT 
TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE STYPOC ROUTINE 
USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**. 



(StfPSW, 

PC, 

R5, 

SMNEW 

-(SP) 

-(SP) 

@$TKS 

7$ 



-(SP) 

STYPOC 

SPRINT 



MOVB @$TKB,-(SP) 
BIC #~C177,(SP) 



CMP 


(SP) ,#25 


BNE 


10S 


JSR 


R5, SPRINT 



I PUT THE PROCESSOR STATUS ON THE STACK 

;G0 TO THE SUBROUTINE 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 

IADDRESS OF MESSAGE TO BE TYPED 

I iCLEAR COUNTER 

; I THE NEW SWR 

; ;CHAR THERE? 

; ; IF NOT TRY AGAIN 

; ; PICK UP CHAR 

I IMAKE IT 7-BIT ASCII 



I I IS IT A CCNTROL-U? 

; ; BRANCH IF NOT 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 



CZQMCF C 


0-1 24K MEMORY 


EXERCISER, 16K 


CZQMCF 


PI 1 


4-FEB-78 


08M9 




4349 


022522 


023304 






4350 


022524 


062706 


000006 




4351 


022530 


000756 






4352 










4353 










4354 


022532 


C21627 


000015 




4355 


022536 


0C1023 






4356 


022540 


005766 


000004 




4357 


022544 


001403 






4358 


C22546 


016677 


000002 


156364 


4359 


022554 


052706 


000006 




43S0 


C22560 








4361 


C22560 


004567 


000726 




4362 


022564 


00-1201 






4363 


022566 


126727 


156343 


000001 


4364 


022574 


00 1003 






4365 


022576 


01 2777 


000100 


156340 


4366 


022604 


OC0002 






4367 


022606 


004767 


001 142 




4368 


022512 


C21627 


000060 




4369 


022616 


002420 






4370 


022520 


021627 


000067 




4371 


C22624 


003015 






4372 


022626 


0427.J6 


000060 




4373 


022632 


C05766 


000002 




4374 


022636 


0014C3 






4375 


022640 


CC6316 






4376 


022642 


006315 






4377 


022344 


0C6316 






4378 


022646 


005266 


000002 




4379 


022552 


C-6616 


177776 




4380 


022656 


000705 






4391 


C22560 








4382 


022660 


004567 


000626 




4383 


022664 


00 1200 






4384 


022666 


000716 






4 385 










4386 










43B7 










4388 










4389 










4390 










4391 










43S2 










4393 










4394 










4395 










4396 


022670 


0: 1646 






4397 


022672 


Oi 6666 


000004 


000002 


4393 


022700 


105777 


156240 




4399 


022704 


10 037 5 






4400 


022706 


1 177C6 


156234 


000C04 


4401 


022714 


04 2766 


177600 


C00C04 


4402 


C22722 


026627 


0000^4 


000023 


4403 


022730 


00 1013 






4404 


022732 


105777 


156206 
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TTY INPUT ROJTINE 



ADDRESS OF MESSAGE TO BE TYPED 
; IGNORE PREVIOUS INPUT 
ILET'S TRY IT AGAIN 



;;IS IT A <CR>? 

I ; BRANCH IF NO 

; ;YES. IS IT THE FIRST CHAR? 

I iBRANCH IF YES 

I I SAVE NEW SWR 

I ICLEAR UP STACK 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 

IADDRESS OF MESSAGE TO BE TYPED 

I I RE-ENABLE TTY KBD INTERRUPTS'' 

; ; BRANCH IF NOT 

IlRE-ENABLE TTY KBD INTERRUPTS 

I IRETURN 

I I ECHO CHAR 

I ;CHAR < 0? 

I ;3RANCH IF YES 

; ICHAR > 7? 

I ; BRANCH IF YES 

; ;STRIP-OFF ASCII 

I ;IS THIS THE FIRST CHAR 

; ; BRANCH IF YES 

I ;N0, SHIFT PRESENT 

I ; CHAR OVER TO MAKE 

I I ROOM FOR NEW ONE. 

I I KEEP COUNT OF CHAR 

I ; SET IN NEW CHAR 

I ;GET THE NEXT ONE 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 
IADDRESS OF MESSAGE TO BE TYPED 
; ;SIMULATE CONTROL-U 



>THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 

•CALL: 

RDCHR ; ; INPUT A SINGLE CHARACTER FROM THE TTY 

RETURN HERE ;;CHARACTER IS ON THE STACK 

IIWITH PARITY BIT STRIPPED OFF 





.WORD 


SCNTLU 


20$: 


ADD 


#6,SP 




BR 


19$ 


10$: 


CMP 


(SP),#1F 




BNE 


16$ 




TST 


4(SPJ 




BEO 


11$ 




MOV 


2(SP) ,@SWR 


11$: 


ADD 


#6,SP 


14$: 








JSR 


R5, SPRINT 




.WORD 


$CRLF 




CMP" 


SINTAG,#1 




BNE 


15$ 




MOV 


ff 100,@$TKS 


15$: 


rt: 




18$: 


JSR 


PC,$TYPEC 




CMP 


(SP),#60 




BLT 


18$ 




CMP 


(SP),#57 




BGT 


18$ 




BIC 


#60. (SP)+ 




TST 


2(SP) 




BEO 


17$ 




ASL 


(SP) 




Ail 


(SP) 




ASL 


(SP) 


17$: 


INC 


2(SP) 




BIS 


-2(SP),(SP) 




BR 


7$ 


18$: 








JSR 


R5, $PR1NT 




.l\ORD 


$OUES 




BR 


20$ 


.DSABL 


LSB 





MOV 


(SP).-(SP) 


I I PUSH DOWN THE PC 


MOV 


4(SP),2(SP) 


I ;SAVE THE PS 


TSTB 


(?>$TKS 


I ; WAIT FOR 


BPL 


1$ 


; ; A CHARACTER 


MCV 3 


«s$TK3,4(5P) 


; I READ THE TTY 


BIC 


#*C<177>,4(SP) 


I ;GET RID OF JUNK IF ANY 


CMP 


4(SP),#23 


IlIS IT A CONTROL-S? 


BNE 


3$ 


; I BRANCH I F NO 


TSTB 


@$TKS 


I IWAIT FOR A CHARACTER 



CZQVCFO 0- 

C20YiCF.P1 1 

4405 C22' 

4406 022' 

4407 0:2' 

4408 022' 

4409 022' 

4410 C22' 

4411 022' 

4412 022' 

4413 022' 

4414 022' 

4415 023i 



124K f,' EM CRY EXERCISER, 
14-FEB-78 08: 19 
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TTY INPUT ROUTINE 



740 


1 1 7745 


156202 






744 


C42716 


177600 






750 


0226'? 


000021 






7 54 


OC 1366 








7 56 


GC0750 








760 


026627 


000004 


000140 


3S.: 


765 


00 2407 








770 


026527 


000004 


000175 




776 


003003 








000 


0-^2766 


000040 


000004 




006 


000002 






4$: 



EPL 
MOV 9 



CMP 
BNE 



BIG 
RTI 



@STKS,-(SP) 

£"C177, (SP) 

(SP)-«-,A21 

2$ 

1$ 

4(5P) ,#140 

4$ 

4(SP) ,#175 

4$ 

#40,4(SP) 



4421 








4422 








4423 








4424 


023010 


01 0346 




4425 


023012 


0C5046 




4426 


023014 


01 27C3 


023^74 


4427 


023020 


022703 


023304 


4428 


023024 


101467 




4429 








4430 








4431 


023026 


01 3746 


177776 


4432 


023032 


004767 


177632 


44 33 


023036 


11 2513 




4 4 34 


023040 


112713 


000177 


4435 


023044 


OC 1024 




4436 


023045 


005716 




4437 


023050 


001010 




4438 


023052 


1 •■ 2767 


oooir ; 


4439 


023060 


004567 


000426 


4440 


023C64 


023272 




4441 


023066 


Oi 27 16 


177777 


4442 


023072 


C053C3 




4443 


023074 


02C327 


023274 


4444 


023100 


10 344 1 




4445 


023102 


11 1367 


000164 


4446 


C23106 


004567 


000400 


4447 


0231 12 


023272 




4443 


0231 14 


000741 




4449 


0231 15 


00 5716 




4450 


0231 20 


001407 




4451 


0231 22 


1 ' 2757 


000134 


4452 


023130 


004567 


000356 


4453 


0231 34 


023272 




4454 


023135 


0C5016 




4455 


02314C 


122713 


000025 


4456 


023144 


C010C4 




4457 


023146 


004567 


000340 


4458 


C23152 


0233C4 




4459 


023154 


000717 




4460 


023156 


122713 


000022 



*THIS ROUTINE WILL INPUT 

•call: 

* RDLIN 

* RETURN HERE 



LIN: MOV 
CLR 
MOV 
CMP 
BLOS 
THE NEXT T 

wihtout us: 

MOV 
JSR 
MCVB 
: CMPB 
BNE 
TST 
BNE 
MOVB 
JSR 
.WORD 
MCV 
DEC 
CMP 
5L0 
MOVB 
JSR 
.WORD 
BR 
TST 
BEO 
MCVB 
JSR 
.WORD 
CLR 
CMPB 
BNF 
JSR 
.WORD 
BR 
CMPw 



R3.-(SP) 
-(SP) 

A'STTYIN,R3 
4STTYIN+8. 
45 
WO INSTRUCTIONS PR 
NG A "TRAP" INSTR 

GrfPSW, ~(SP) 

PC, iRDCHR 

(SP)+, (R3) 
ff177,(R3) 

5S 
SP) 



; ; LOOP UNTIL ITS THERE 

; ;GET CHARACTER 

; ;MAKE IT 7-BIT ASCII 

; ; IS IT A CGNTROL-Q? 

; ; IF NOT DISCARD IT 

;;YES. RES'Jf.'E 

; ; IS IT UPPER CASE? 

; ;SRANCH IF YES 

; ; IS IT A SPECIAL CHAR? 

; ;BRANCH IF YES 

; ;MAKE IT UPPER CASE 

; ;GC BACK TO USER 

A STRING FROM THE TTY 

;; INPUT A STRING FROM THE TTY 

;;ADDRE5S OF FIRST CHARACTER WILL BE ON THE STACK 

;;TERMINATOR WILL BE A BYTE OF ALL O'S 

; ;SAVE R3 

; :CLEAR THE RUBO'JT KEY 
i ; ;GET ACDRESS 

, ,R3 ; ; BUFFER FULL? 



GS 



'\.9S 



rf-1 ,(SP) 

R3 

R3,#STTYIN 
4$ 
(R3),9S 

R5, SPRINT 
9$ 



SPRINT 



#'\,9$ 

R5, 

9$ 

(SP) 

ff25, (R3/ 

SS 

R5, SPRINT 

SCNTLU 

1$ 

#22, (R3) 



5R IF YES 
OVIDE AN INTERFACE TO THE SRDCHR ROUTINE 
UCTION A3 CALLED FOR BY **SYSMAC**. 
;PUT THE PROCESSOR STATUS ON THE STACK 
;G0 TO THE SUBROUTINE 
; ;GET CHARACTER 
; ; IS IT A RU50UT 
; ;BR IF NO 

;;IS THIS THE FIRST RU30UT? 
; ; ER IF NO 
; ;TYPE A BACK SLASH 

;GG PRINT OUT THE FOLLOWING MESSAGE. 
; ADDRESS OF MESSAGE TO BE TYPED 
; ;SET THE RUBOUT KEY 
; ; BACKUP BY ONE 
; ;STACK EMPTY? 
; ;BR IF YES 

;;SETUP TO TYPEOUT THE DELETED CHAR. 
;G0 PRINT OUT THE FOLLOWING MESSAGE. 
; ADDRESS OF MESSAGE TO BE TYPED 

GO READ ANOTHER CHAR. 

RUBOUT KEY SET? 

3R IF NO 
; ;TYPE A BACK SLASH 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 
; ADDRESS OF MESSAGE TO BE TYPED 
; ; CLEAR THE RUBOUT KEY 
; ;IS CHARACTER A CTRL U? 
; ;BR IF NO 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 
; ADDRESS OF MESSAGE TO BE TYPED 
; ;G0 START OVER 
; ; IS CHARACTER A »-R«? 



CZQMCFO 0-1 24K MEMORY EXERCISER, 1 6K VER 
CZ0MCF.P11 14-FEB-7S 08:19 TTN 



MACY11 30A(1052) 
INPUT ROUTINE 



4461 
4452 
4463 
4464 
4465 
4466 
4467 
4468 
4469 
4470 
4471 
4472 
4473 
4474 
4475 
4476 
4477 
4478 
4479 
4480 
4481 
4432 
4433 
4434 
4435 
4486 
4437 



4489 
4490 
4491 
4492 
4 4 93 
4 494 
4495 
4 496 
4497 
4498 
-14 99 
45C0 
4501 
4502 
45C3 
4504 
4505 
4506 
4507 
45C8 
4 509 



023162 
023164 
023165 
023172 
0231 74 
023200 
023202 
023204 
023204 
023210 
023212 
023214 
C23220 
023224 
023226 
023232 
023234 
C23240 
023244 



023254 
023252 
023270 
G23272 
023273 
023274 
023304 
02331 1 
023316 
023324 
023327 
023334 



1C501 3 
0C4567 
001201 
CC4567 
023274 
000706 



004567 
001 200 
0C07C0 
11 1367 
OC'4557 
023272 
122723 
001272 
105063 
CC4567 
0012C2 
005726 
01 2603 
01 1646 
01 6566 
012755 
000002 

OCO 

000 
000010 
052536 

136 
5015 
02C075 

040 
036440 



000320 
000312 



000052 
000266 



177777 

000246 



000004 
023274 



005015 
006507 
053523 
000 
047040 
000040 



000002 
000C04 



COO 
000012 
020122 



STTflN: 
SCNTLU: 
SCNTt G: 
SMSWk: 



BNE 

CLR3 

JSR 

.WORD 

JSR 

.WORD 

BR 

JSR 
.WORD 

BR 

MO''" 

JSR 
.WORD 

CMP n 

BNE 

CLRB 

J£"! 
.WORD 

TST 

MCV 

MOV 

MOV 

MOV 

RTI 

.BYTE 

.BYTE 

.UlKB 

.ASCIZ 

.ASCI 2 

.ASCIZ 



3$ 

(R3) 

R5, 

SCRLF 

R5, 

STTYIN 

2$ 

R5, 



R5, SPRINT 

9S 

*15,(R3)+ 

2$ 

-1 (R3) 

R5, 

SLF 

(SP) + 

(SP)+,R3 

(SP).-(SP) 

4(SP) .2(SP) 

#STTVIN,4(SP) 
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; ;3RANCH IF NO 

; ;CLEAR THE CHARACTER 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 

;ADDRESS OF MESSAGE TO BE TYPED 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 

;ADDRESS OF MESSAGE TO BE TYPED 

;;G0 PICKUP ANOTHER CHACTER 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 
; ADDRESS OF MESSAGE TO BE TYPED 
;;CLEAR THE BUFFER AND LOOP 
; ; ECHO THE CHARACTER 

;GQ PRINT OUT THE FOLLOWING MESSAGE. 
; ADDRESS OF MESSAGE TO BE TYPED 
; ;CHECK FOR RETURN 
; ; LOOP IF NOT RETURN 
; ;CLEAR RETURN (THE 15) 
;GG PRINT OUT THE FOLLOWING MESSAGE. 
; ADDRESS OF MESSAGE TO BE TYPED 
;;CLEAN RUBOUT KEY FROM THE STACK 
; ;RESTORE R3 

;; ADJUST THE STACK AND PUT ADDRESS OF THE 
FIRST ASCII CHARACTER ON IT 



SPRINT 



/"U/<15><12> 
/"G/<15><12> 
<15><12>/SWR = 



; RETURN 

-.STORAGE FOR ASCII CHAR. TO TYP 

; TERMINATOR 

-.RESERVE 8 BYTES FOR TTY INPUT 

; CONTROL "U" 

;CONTROL "G" 



053505 SMNEW: .ASCIZ / NEW = / 

.SBTTL READ AN OCTAL NUMBER FROM THE TTY 



-THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 

"CHANGE IT TO BINARY. 

*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 

-OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS PEAD A "?" WILL BE TYPED 

^FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 

■-.THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 

*CALL: 

* RDOCT ; ;READ AN OCTAL NUM3ER 

RETURN HERE ; ; LOW ORDF.R BITS ARE ON TOP OF THE STACK 

;;HIGH ORDEF; BITS ARE IN SHIOCT 



01 16-"- 6 

0:6666 000004 

0100*6 

0! 0146 

01 0246 



SRDOCT: MOV 
MCV 
MCV 
MCV 
MOV 



(SP) ,-(SP) 
4(SP) ,2iSP) 
RO.-lSP; 



; ; PROVIDE SPACE FOR THE 

; ; INPUT NUMBER 

; ; PUSH RO ON STACK 

; ; PU5H R1 ON STACK 

; ; PUSH R2 ON STACK 



THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE SRDLIN ROUTINE 
WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**. 



CZQMCFO 
CZQMCF.i 

4517 

4518 
4519 
4520 
4521 
4522 
4523 
4524 
4525 
4526 
4527 
4523 
4529 
4530 
4531 
4532 
4533 
4534 
4535 
4 536 
4537 
4538 
4539 
4540 
4541 
4542 
4543 
4544 
4545 
4546 
4547 
4548 
4549 
4550 
4551 
4552 
4553 
4554 
4555 
4556 
4557 
4558 
4559 
45S0 
4561 
4562 
4563 
4564 
4565 
4566 
4567 
4568 
4569 
4570 
4571 
4572 



124K i\ EMORY EXERCISER, 
14tFEB~78 08*.19 



|6K VER MATY 11 30AM052) 2G-FEB-7 
READ AN OCTAL NUMBER FROM THE TTY 



023356 
C23352 
023366 
023370 
023374 
023376 
G2J4 00 
023402 
023404 
0234 1C 
0234 12 
0234 16 
023420 
023422 
02J424 
0234 26 
023430 
023432 
023434 
023440 
023442 
023444 
023446 
023452 
023456 
023460 
022452 
023464 
023466 
023470 
023472 
023476 
02350C 
023504 
023506 
023510 



023512 
023516 



023524 
Q23530 
023534 
023536 



CI 3746 
0C4767 
012600 
01 00. 7 
0C5001 
OC5002 
112048 
OC 1420 
122716 
C03026 
1*2716 
002423 
CC6301 
0G6102 
006301 
0C6102 
0C6301 
0C6102 
04 2716 
062601 
000756 
005726 
01 0156 
010267 
012602 
012601 
C". 26C0 
CC00C2 
0C5726 
10 5010 
0C4567 
OOOOCO 
004567 
001200 
0Q0723 
000000 



12567 
66767 



177776 
177422 



000060 
000067 



000012 
000032 



Q00014 
000006 



MOV 

JSR 

MOV 

MOV 

CLR 

CLR 

MOVB 

BLj 

CMPB 

BGT 

CMPB 

BIT 

ASL 

ROL 

ASL 

ROL 

ASL 

ROL 

BIC 

ADD 

BR 

TST 

MOV 

MOV 

MQV 

MOV 

MOV 

RTI 

TST 

CLRB 

JSR 

.WORD 

JSR 

.WORD 

BR 

.WORD 



§>*PSw, -(SP) 

PC, SRDLIN 

(SP)+,R0 

R0.53 

R1 

R2 

(RO)+,-(SP) 

3$ 

* '' 0, (SP) 

4$ 



R2 

R1 

R2 

»~C7,(5P) 

(SPJ+.R1 

2? 

(SP) + 

R1 ,12(SP) 

R2.SHIQCT 

(SP)+,R2 

(SP)+,R1 

(SP)+,R0 

(SP) + 

(RO) 

R5, SP 



R5, $P 

SQUES 



07:56 PAGE 92 

;PUT THE PROCESSOR STATUS ON THE 5TAC 

;G0 TO THE SUBROUTINE 

;;GET ADDRESS OF 1ST CHARACTER 

; ;AND SAVE IT 

; ;CLEAR DATA wORO 

; ;PICKUP THIS CHARACTER 
; : IF ZERO GET OUT 
;;MAKE SURE THIS CHARACTER 
; ;IS AN OCTAL DIGIT 



; ;STRIP THE ASCII JUNK 

; ;ADD IN THIS DIGIT 

; ;LOOP 

;;CLEAN TERMINATOR FROM STACK 

; ;SAVE THE PESULT 

; ;POP STACK INTO R2 

; ;POP STACK INTO R1 

; ; POP STACK INTO RO 

; ; RETURN 

;;CLEAN PARTIAL FROM STACK 

; ;SET A TERMINATOR 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 

; ADDRESS OF MESSAGE TO BE TYPED 

; ;TRY AGAIN 

;;HIGH ORDEP BITS GO HERE 



QQQ016 

155Q56, Q0001Q 



013746 177776 
C04767 000004 
OCOQCO 
000205 



;* SUBROUTINE TO PASS RELOCATED „1£SSAGE ADDRESSES TO THE STYPE ROUTINE. 

;*' CALL: JSR R5, 5?RINT 

I* <MES3AGE VIRTUAL ADDRESS> 

SPRINT; MOV (R5)+, 1$ ;GET THE MESSAGE VIRTUAL ADDRESS. 

ADD RELQCF, 1S ;MAKE IT PHYSICAL. 

;* THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPE ROUTINE 
;» WIHTOUT USING A »TR«P- INSTRUCTION AS CALLED FOR BY **SYSMAC»*. 

MCV <?#PSW, -(SP) ;PUT THE PROCESSOR STATUS ON THE STACK 

JSR PC, STYPE ;G0 TO THE SUBROUTINE 
IS: .WORD ;C0NTAIN3 THE PHYSICAL MESSAGE ADDRESS. 

RTS R5 ;RETURN. 

.SBTTL TYPC ROUTINE 

'ROUTINE TO TYRE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A BYTE. 
"THE ROUTIinc WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 



CZQMCFC 
CZOMCF. 

4573 

4574 
4575 
4576 
4577 
4578 
4579 
4 580 
4581 
4532 
4583 
4584 
4535 
4586 
4 587 
4588 
4589 
4590 
4591 
4592 
4 593 
4594 
4595 
4536 
4597 
4593 
4599 
4600 
4601 
4602 
4603 
4 604 
4605 
4606 
4 50 7 
4603 
4609 
4610 
-1511 
4612 
4613 
4614 
4615 
4616 
4617 
4618 
4 619 
4620 
4C21 
4 622 
4 623 
4624 
4 525 
4626 
4627 
4628 



0-124K MEMORY EXERCISER, 
1 14-FEBr78 08: 19 



16K VER MACY11 30A(1052) 
TYPE ROUTINE 



20-FEP-7S 07:56 PAGE 93 



023540 
023544 
023346 
023550 
023552 
023554 
023560 
023566 
023570 
023576 
023600 
023604 
0236 10 
023612 
023620 
023622 
023624 

0:^3iO 
C23522 

023636 
023340 
023644 
C23646 



023702 
023704 



02:.? 16 
023722 
023726 



105767 
1C00C2 
000000 
0C0430 
01 0046 
01 7600 
122767 
03101 1 
132767 
CO 140 5 
010067 
004737 
OOOOCO 
122767 
001003 
1 i 2046 
CO 1005 
0C5726 
C • 260 
06 2716 
000002 
122716 
001431 
122716 
CO 1007 
0C5726 
004567 
00 12C1 
105067 
000754 
0047C-7 
126726 
001347 
01 6746 

10 5366 
O'0 27'O 
0w4767 



000004 
000222 



0p0Q40 155405 



000002 
00001 1 
000200 

177630 
000130 



000056 
155254 



000032 
000072 



^NQTEI : 
>N0TE2: 
>N0TE3: 



$NULL CONTAINS THE CHARACTEP TO BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
5FILLC CONTAINS THE CHARACTER TO FILL AFTER. 



♦CALL: 

*1) USING A TRAP INSTRUCTION 

TYPE .MESADR 
*QR 
* TYPE 

MESADR 



;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



000002 
000001 



000100 155427 



61$: 
6;s: 



TST3 

BPL 
HALT 

BR 

MOV 

V.C J 

CMPB 

BNE 

BITS 

BEQ 

MOV 

JSR 

.WORD 

BITB 

BNE 

MWB 

BNE 

TST 

MOV 

ADD 

RTI 

CMPB 

BEQ 

CMPB 

ENE 

TST 

JSR 

SCRLF 

CLRB 

BR 

JSR 

CMPB 

BNE 

MCV 



DECB 



JSR 
DECB 



STPFLG 
1$ 

3$ 

R0,-(SP) 

02(SP),RO 

*APTENV,SENV 

62S 

CAPTSPOOL.SENVM 

62$ 

R0.61S 

PC.SATY3 



*APTCSUP,5ENVM 

60$ 

(RO)+.-(SP) 

4S 

(SP) + 

(SP)+,RO 

#2,(SP) 

#HT,(SP) 

8$ 

rfCBLF, (SP) 

55 

(SP) + 

R5, SPRINT 

SCHARCNT 

2S 

PC.STYPEC 

SFILLC,(SP)+ 

2S 

$NULL,-(SP) 

1(SP) 
6S 

PC.STYPEC 

SCHARCNT 

7S 



JHORIZONTAL TA3 PROCESSOR 



112716 000040 



; IS THERE A TERMINAL? 

;33 IF YES 

;HALT HERE IF NO TERMINAL 

; LEAVE 

;SAVE RO 

;GET ADDRESS OF ASCIZ STRING 

; RUNNING IN APT MODE 

;NO,GO CHECK FOR APT CONSOLE 

;SPOOL MESSAGE TO APT 

;NO,GO CHECK FOR CONSOLE 

; SETUP MES3AGE ADDRESS FOR APT 

; SPOOL .MESSAGE TO APT 

jMESSAGE ADDRESS 

;APT CONSOlE SUPPRESSED 

;YES,SKIP TYPE OUT 

;PUSH CHARACTER TO BE TYPED ONTO STACK 

;5R IF IT ISN'T THE TERMINATOR 

;IF TERMINATOR POP IT OFF THE STACK 

;RESTORE RO 

;ADJUST RETURN PC 

; RETURN 

IBRANCH IF <HT> 

;ERANCH IF NOT <CRLF> 

;POP <CR><LF> EQUIV 

GO PRINT OUT THE FOLLOWING MESSAGE. 

;CLEAR CHARACTER COUNT 

;GET NEXT CHARACTER 

;G0 TYPE THIS CHARACTER 

;IS IT TIME FOR FILLER CHARS.? 

; IF NO GO GET NEXT CHAR. 

;GET r. OF FILLER CHARS. NEEDED 

; AND THE NULL CHAR. 

;DOES A NULL NEED TO BE TYPED? 

;3R IF NO— GO POP THE NULL OFF OF STACK 

;G0 TYPE A NULL 

;D0 NOT COUNT AS A COUNT 

; LOOP 



; ;REPLACE TAB WITH SPACE 



CZQMCFO 0-124K VEMORY EXERCISER, 
CZQMCF.P11 14-FEB-78 08:19 



16K VER MACY1 1 30A(1052) 
TYPE ROUTINE 



4629 


023734 


C04767 


000014 




9$: 


JSR 


PC, STYPEC 


4630 


023740 


132767 


000007 


000052 




EITB 


#7, SCHARCNT 


4631 


023746 


00 1372 








BNE 


9$ 


4 632 


023750 


CC5726 








TST 


(SP) + 


4633 


023752 


000723 








BR 


2$ 


4634 


023754 


105777 


155170 




STYPEC: 


TSTB 


(PSTPS 


4635 


023760 


100375 








BPL 


STYPEC 


463S 


023762 


1 16677 


000002 


155162 




MOVB 


2(SP) ,;?$TPB 


4637 


023770 


122766 


000015 


000002 




CMPB 


*CR,2(SP) 


4638 


023776 


001003 








BNE 


1$ 


4639 


024000 


10 5067 


000014 






CLRB 


SCHARCNT 


4640 


024004 


000406 








BR 


STYPEX 


4641 


024006 


122766 


000012 


000C02 


1$: 


CMPB 


#LF,2(SP) 


4642 


024014 


OC 1402 








BEQ 


STYPEX 


4643 


024016 


105227 








INC R 


(PC) + 


4644 


024020 


000000 






SCHARCNT: .WORD 





4645 


024022 


000207 






STYPEX: 


RTS 


PC 


4646 
















4647 










.SBTTL 


APT COMMUNICATIONS R 


4648 
















4649 










j ****** 


******** 


************* 


4650 


C24024 


112767 


000001 


000376 


SATY1 : 


MOVB 


M , SFFLG 


4651 


024032 


112767 


000001 


000366 


$ATY3: 


MOVB 


#1 , SMFLG 


4652 


024040 


0004C3 








BR 


SATYC 


4653 


024042 


112767 


000001 


000360 


$ATY4: 


MOVB 


#1 .SFFLG 


4654 


024050 








S'.TYC: 






4655 


024050 


01 0046 








MOV 


RO,-(SP) 


4656 


024052 


01 0146 








ML.V 


R1 ,-(SP) 


4657 


024054 


105767 


000346 






TSTB 


SMFLG 


4658 


024060 


001450 








BEO 


5$ 


4559 


024062 


1.2767 


000001 


155134 




CMPB 


#APTENV,SENV 


4660 


024070 


0C1031 








BNE 


35 


4661 


024072 


132767 


000100 


155125 




BITB 


wAPTSPOOL.Se 


4662 


024100 


0C1425 








BEO 


3$ 


4663 


024102 


01 7600 


000004 






MOV 


@>4(SP) ,R0 


4664 


024106 


062766 


000002 


000004 




ADD 


#2,4(SP) 


4665 


0241 14 


005767 


155064 




1$: 


TST 


SMSGTYPE 


4666 


024120 


001375 








BNE 


IS 


4667 


024122 


01 0067 


155072 






MOV 


RO.SMSGAD 


4668 


0241 26 


105720 






2$: 


TSTB 


(R0) + 


4669 


024130 


CC1376 








BNE 


2$ 


4670 


024132 


166700 


155062 






SUB 


$MSGAD,RO 


4671 


024136 


006200 








ASR 


RO 


4672 


C24140 


010067 


155056 






MOV 


RO.SMSGLGT 


4673 


024 144 


01 2767 


000004 


155032 




MOV 


#4, SMSGTYPE 


4674 


024152 


000413 








BR 


55 


4675 


024154 


01 7667 


000004 


000016 


3$: 


MOV 


@4(SP) ,4$ 


4676 


024162 


062766 


000002 


000004 




ADD 


#2,4(SP) 


4677 


024170 


1 67^6 


153602 






MOV 


177776, -(SP) 


4678 


024 1 74 


004767 


177340 






JSR 


PC.STYPE 


4679 


G24200 


000000 






4S: 


.WORD 





4680 


024202 








5S = 






4681 


C24202 


105767 


000221 






TSTB 


SLFLG 


4682 


C24206 


001422 








BEQ 


10$ 


4683 


024210 


01 7600 


000004 






MOV 


(P4(SP) ,R0 


4684 


024214 


062766 


000002 


000004 




ADD 


#2,4(SP) 



;TYPE A SPACE 

; BRANCH IF NOT AT 

;TAD STOP 

;PCP SPACE OFF STACK 

;GET NEXT CHARACTER 

;WAIT UNTIL PRINTER IS READY 

; LOAD CHAR TO BE TYPED INTO DATA REG. 

;IS CHARACTER A CARRIAGE RETURN? 

;BRANCH IF NO 

;YES — CLEAP CHARACTER COUNT 

;EXH 

;IS CHARACTER A LINE FEED? 

;BRANCH IF YES 

;COUNT THE CHARACTER 

;CHARACTER COUNT STORAGE 



;T0 REPORT FATAL ERROR 
;T0 TYPE A MESSAGE 

;T0 ONLY REPORT FATAL ERROR 

;PUSH RO ON STACK 

;PUSH R1 ON STACK 

; SHOULD TYPE A MESSAGE? 

; IF NOT : BR 

-.OPERATING UNDER APT? 

; IF NOT: ER 

; SHOULD SPOOL MESSAGES? 

; IF NOT: BR 

;GET MESSAGE ADDR. 

; ;BuMP RETURN ADDR. 
;SEE IF DOME W/ LAST XMISSION? 
; IF NOT: WAIT 
;PUT ADDR IN MAILBOX 
; FIND END OF MESSAGE 

;SUB START OF MESSAGE 
;GET MESSAGE LNGTH IN WORDS 
;PUT LENGTH IN MAILBOX 
; TELL APT TO TAKE MSG. 

;PUT MSG ADDR IN JSR LINKAGE 
; ;BUMP RETURN ADDRESS 
;PUSH 177776 ON STACK 
;CALL TYPE MACRO 



; SHOULD LOG AN ERROR? 

;IF NOT: BR 

; ;GET ERROR # 

; ;BUMP RETURN ADDR. 



CZQMCFO 


0-1 24K f,'. EMORY 


EXERCISER, 16K 


CZQMCF. 


PI 1 1 


4-FEB-78 


08:19 


4685 


024222 


012701 


001344 


4686 


024226 


0C571 1 




4687 


024230 


100404 




4688 


024232 


02 oo: : 




4689 


024 2 34 


001406 




4690 


024236 


005721 




4691 


02424C 


000772 




4692 


024242 


026701 


155244 


4693 


C24246 


00 1 402 




4 694 


024250 


01 0021 




4695 


024252 


0:521 1 




4696 


024254 


105767 


000150 


4697 


024260 


001416 




4698 


024262 


005767 


154736 


4699 


02-1265 


C01413 




4700 


024270 


005767 


154710 


4701 


024 2 74 


001375 




4702 


024276 


01 7667 


000004 154702 


4703 


024304 


062766 


000002 000004 


4704 


024312 


005267 


154666 


4705 


024316 


1C5067 


000106 


4706 


024322 


1G5C67 


00C01 


4707 


024326 


10 5067 


000074 


4708 


024332 


01 2601 




4709 


C24334 


01 2600 




4710 


02433S 


000207 




471 1 


024 340 






4712 


024340 


01 0046 




4713 


024342 


0:6700 


155144 


4714 


C24346 


1£2700 


001344 


4715 


C24352 


0C5767 


154626 


4716 


024356 


GC1375 




4717 


024360 


01 0067 


154635 


4718 


024364 


012767 


0013' 1 154626 


4719 


024372 


012767 


000002 154604 


4720 


024400 


01 2600 




4721 


024402 


000207 




4 7 22 


0244Q4 






4723 


024404 


01 0046 




4724 


024406 


01 2701 


001344 


4725 


024412 


005721 




4726 


0244 14 


100402 




4727 


0244 16 


005021 




4728 


024420 


000774 




4729 


C24422 






4730 


C 24 4 22 


01 2600 




4731 


024424 


00 0207 




4 732 


024426 


OCO 




4733 


024427 


OCO 




4734 


024430 


OCO 




4 7 35 




C2 4432 




•;•.•:•:.;. 




00 0200 




4737 




OuOOOl 




4 738 




OCO 100 




4739 




0000-0 




4740 









6K VER MA~Y11 30A(1052) 20-FE9- 
APT COMMUNICATIONS ROUTINE 





MOV 


#$ASTAT,R1 


65: 


TST 


(R1) 




BMI 


85 




CMP 


RO, (31 )+ 




BEQ 


95 




TST 


(RD + 




BR 


6$ 


85: 


cr ~> 


SAPTR.R1 




BEQ 


105 




MOV 


RO, (R1 ) + 


9$: 


INC 


(R1) 


10$: 


TSTB 


SFFLG 




BEQ 


12$ 




TST 


SENV 




BEQ 


125 


11$: 


TST 


SMSGTYPE 




BNE 


115 




MOV 


@4fSP) .SFATAL 




ADD 


#2,4(SP) 




INC 


SMSGTYPE 


12$: 


CLRB 


SFFLG 




CLRB 


SLFLG 




CLRB 


SMFLG • 




MOV 


(SP)+,R1 




MOV 


(SP)+,R0 




RTS 


PC 


SATY6". 








MOV 


RO.-(SP) 




MOV 


SAPTR.RO 




SUB 


#$ASTAT,R0 


1$: 


TST 


$MSGTY 




BNE 


1$ 




MOV 


RO.SMSGLG 




MOV 


#5ASTAT,SMSGAD 




MOV 


#2,SV,SGTY 




MOV 


(SP)+,RO 




RTS 


PC 


$ATY7: 








MOV 


RO.-(SP) 




MOV 


#SASTAT,R1 


1$: 


TST 


(R1) + 




BMI 


2$ 




CLR 


(R1) + 




BR 


15 


2$: 








MOV 


(SP)+,RO 




RTS 


PC 


SMFLG: 


.BYTE 





SLFLG: 


.BYTE 





SFFLG: 


.BYTE 
.EVEN 





APT SIZE 


= 200 




APTENV= 


001 




APTSP-00 


.= 100 




APTCSUP 


= 040 





?B 07:56 PAGE 96 



;POINT TO TABLE START 
;END OF TABLE? 
;IF SO: BP 
;PROPER ENTRY? 



;IF SO: 



BR 



;MOVE PAST COUNTER WORD 

;KEEP LOOKING 

;TABLE FULL? 

;IF SO: BP — NO MORE ROOM 

;SET UP NEW ENTRY 

; BUMP ERROP COUNT 

;SHOULD REPORT FATAL ERROR? 

; IF NOT: BR 

; RUNNING UNDER APT? 

; IF NOT : BR 

;FINISHED LAST MESSAGE? 

; IF NOT: WAIT 

;GET ERROR ti 

; ;BUMP RETURN ADDR. 
;TELL APT TO TAKE ERROR 
;CLEAR FATAL FLAG 
; CLEAR LOG FLAG 
; CLEAR MESSAGE FLAG 
;POP STACK INTO R1 
; POP STACK INTO RO 
;RETURN 

;PUSH RO ON STACK 

;GET SIZE OF STAT TABLE 

;SEE IF DONE LAST COMMUNICATION 

; IF NOT: WAIT 

; SET MESSAGE LENGTH 

;SET MESSAGE ADDR. 

;TELL APT TO TAKE STATS. 

;POP STACK INTO RO 

;RETURN 

; PUSH RO ON STACK 
;GET START OF TATLE 
; END OF TABLE? 
;IF SO: BP 
;CLEAR ERROR COUNT 
;KEEP CLEARING 

;POP STACK INTO RO 

;RETURN 

;MESSG. FLAG 

; LOG FLAG 

;FATAL FLAG 



czqmcf: 


0-12- 


K iY EMORY 


EXERCI 


CZQMCF . 


P11 14-PEB-78 


08: 19 


4 741 








4742 








4743 








4744 








4745 








4746 








4747 








4 748 








4749 








4750 








4751 








4752 








4753 


024432 






4754 


024432 


01 0046 




4755 


0244 34 


01 0145 




4756 


024436 


01 0245 




4 757 


C24440 


01 0346 




4758 


024442 


01 0546 




4759 


024444 


01 2746 


020200 


4 760 


0244 50 


056605 


000020 


4761 


0244 54 


100004 




4762 


024456 


0G5405 




4763 


024460 


M2766 


000055 


4764 


024J66 


01 67C0 


154106 


4765 


24472 


Oi 27C3 


024654 


4766 


024476 


060003 




4767 


02450G 


1 1 2723 


000040 


4768 


024504 


0C5002 




4769 


024505 


0:6001 


024644 


4770 


0245I2 


K0105 




4771 


024514 


CC2402 




4772 


024516 


'0C52C2 




4773 


C24520 


000774 




4774 


C24522 


060 105 




4775 


024524 


0057C2 




4776 


024526 


0010C2 




4777 


024530 


105716 




4778 


024532 


1C04C7 




4779 


024534 


1 C 63 1 6 




4780 


024536 


103003 




4781 


024540 


1 ; 6663 


000001 


4782 


24 5 4 6 


052702 


000060 


4783 


024552 


CE.27C2 


000040 


4784 


024556 


1 1 0223 




4785 


024 550 


005720 




47S6 


C24562 


020067 


155054 


4787 


024565 


1C3746 




4783 


024570 


101002 




4739 


024572 


01 05C2 




4790 


024574 


000764 




4791 


024576 


1C5726 




4792 


0246C0 


100003 




4793 


024602 


1 16663 


177777 


4794 


024510 


105013 




4795 


024612 


012605 




4796 


024514 


012603 





16K VER MA~Y11 30A(1052) 20-FEB-78 07: 
APT COMMUNICATIONS ROUTINE 



.SB1TL CONVERT BINARY TO DECIMAL AND TYPE FOUTINE 

*THIS ROUTINE IS US ID TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
•SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 

• NU.Y3ES IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
»S£f-ORE THE FIRST DIGIT OF THE NUM3ER. LEADING ZEROS WILL ALWAYS BE' 
♦REPLACEC WITH SPACES. 

♦ CUL.: 

* MOV NUM.-(SP) ;;PUT THE BINARY NUMBER ON THE STACK 

* TYPDS ; ;G0 TO THE ROUTINE 



PUSH RO ON STACK 

PUSH R1 ON STACK 

PUSH R2 ON STACK 

PUSH R3 ON STACK 

PUSH R5 ON STACK 

SET BLANK SWITCH AND SIGN 

GET THE INPUT NL'MSER 

BR IF INPUT IS POS. 

MAKE THE eiNARY NUMBER POS. 

MAKE THE ASCII NUMBER NEG. 
iET RELOCATION FACTOR. 

SETUP THE OUTPUT POINTER 
,DD IN RELOCATION FACTOR. 

SET THE FIRST CHARACTER TO A BLANK 

CLEAR THE BCD NUMBER 

GET THE CONSTANT 

FORM THIS BCD DIGIT 

BR IF DONE 

INCREASE THE BCD DIGIT BY 1 

ADD BACK THE CONSTANT 

CHECK IF BCD DIGIT=0 

FALL THROUGH IF 

STILL DOING LEADING O'S? 

BR IF YES 

MSD? 

BR IF NO 

YES — SET THE SIGN 

MAKE THE BCD DIGIT ASCII 

MAKE IT A SPACE IF NOT ALREADY A DIGIT 

PUT THIS CHARACTER IN THE OUTPUT BUFFER 

JUST INCREMENTING 
CHECK THE TABLE INDEX 
GO DO THE NEXT DIGIT 

GO TO EXIT 

GET THE LSD 

GO CHANGE TO ASCI I 

WAS THE LSD THE FIRST NON-ZERO? 

BR TF NO 



) 



STYPCS 








MOV 


RO.-(SP) 




MOV 


R1 ,-(SP) 




MOV 


R2,-(SP) 




MOV 


R3,-(S?) 




MOV 


R5,-(SP) 




MOV 


*2C200,-(SP) 




MOV 


20(SP),R5 




BPL 


1$ 




NEG 


R5 




MOVB 


#'-, 1 (SP) 


1$: 


MOV 


RELOCF, RO 




MOV 


0SDBLK, R3 




ADD 


RO, R3 




MOVB 


H ' , (R3) + 


2S: 


CLR 


R2 




MOV 


SDTBL(R0),R1 


3$: 


SUB 


R1 ,R5 




BLT 


4$ 




INC 


R2 




BR 


3$ 


4$: 


ADD 


R1 ,R5 




TST 


R2 




BNE 


5S 




TSTB 


(SP) 




BMI 


7S 


5S: 


ASLU 


(SP) 




BCC 


6S 




MOVB 


1(SP),-1(R3) 


6S: 


BIS 


#'0,R2 


7$: 


BIS 


#' ,R2 




MOVB 


R2, (R3)+ 




TST 


(R0) + 




CMP 


RO, .EIG 




BLO 


2$ 




BHI 


8S 




MOV 


R5.R2 




BR 


6$ 


BS: 


TSTB 


(SP) + 




BPI 


95 




MOV a 


-1(SP),-2(R3 


9S: 


CLRB 


(R3) 




MOV 


(SP)+,R5 




MOV 


(SP)+,R3 



) 



YES — SET THE SIGN FOR TYPING 
SET THE TERMINATOR 
POP STACK INTO R5 
POP STACK INTO R3 



CZOMCFO 


0-1 24K MEMORY 


EXERCISER, 16K 


CZOMCF. 


P1 1 1 


4-FEB-78 


08:19 




4797 


024616 


01 2602 






4798 


024620 


012601 






4799 


024622 


012600 






4800 


024624 


004567 


176662 




4801 


024630 


024654 






4802 


024632 


01 6666 


000002 


000004 


4803 


024640 


012516 






4804 


024G42 


C00002 






4805 


024644 


023420 






4S06 


C24646 


00 1750 






4807 


024650 


000144 






4303 


024652 


000012 






4809 


024654 


000004 






4810 










481 1 










4812 










4813 










4814 










4815 










4816 










4317 










4818 










4819 










4820 










4821 










4822 










4823 










4324 










4325 










4826 










4827 










4828 










4829 










4830 










4331 










4 332 










4833 










4834 










4835 


C24664 


017646 


000000 




4836 


C24670 


116667 


000001 


000213 


4837 


0246 76 


1 1 2667 


00021 1 




4338 


024702 


062716 


000002 




4839 


C24 7C6 


OC0406 






4840 


24 7 10 


1 127' 7 


000001 


C00173 


4341 


0247 16 


1'. 2767 


000006 


000167 


4342 


024724 


1 12767 


000005 


000156 


4 843 


024732 


01 0346 






4844 


024734 


01 0446 






4 845 


0247 36 


01 0546 






4846 


024740 


1 ■ 6704 


000147 




4847 


024744 


0^5404 






4348 


024746 


0. ; 2704 


000006 




4 34 9 


024752 


1 i 0467 


000134 




4350 


024756 


1 16704 


000127 




4851 


024762 


016605 


000012 




4852 


024766 


0050C3 







VER MACY11 30A(1052) 20-FEB-78 07:56 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 



(SP)+,R2 

(SP)+,R1 . 

(SP)+,R0 

R5, SPRINT 

SDBLK 

2(SP) ,4(SP) 

(SP)+,(SP) 



; ;POP STACK INTO R2 

; ;POP STACK INTO R1 

; ;POP STACK INTO RO 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 

;ADDRESS OF MESSAGE TO BE TYPED 

; ;ADJUST THE STACK 

; ;RETURN TO USER 



MOV 

MOV 

MOV 

JSR 

.WORD 

MOV 

MOV 

RTI 
$DTBL: 10000. 

1000. 

100. 

10. 
SDBLK : .BLKW 4 
.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 



"THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
►OCTAL (ASCII) NUM3ER AND TYPE IT. 

kSTYPOS ENTER HERE TO SETUP UJPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

►CALL: 

" MOV NUM.-(SP) ;;NUMBER TO BE TYPED 

" TYPOS ;;CALL FOR TYPEO'JT 

* .BYTE N ;;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

► .BYTE M ; ;M=1 OR 

k ; ; 1=TYPE LEADING ZEROS 

k ;;0=SUPPRESS LEADING ZEROS 

^STYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

>$TYPOS OR STYPOC 
►CALL: 

MOV NUM.-(Sr) ;;NUMBER TO BE TYPED 
k TYPCN ;;CALL FOR TYPEO'JT 

STYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

•CALL: 

MOV NUM,-(SP) ;;NUMBER TO BE TYPED 

TYPOC ;;CALL FOR TYPEOUT 

PICKUP THE MODE 
LOAD ZERO FILL SWITCH 
NUMBER OF DIGITS TO TYPE 
ADJUST RETURN ADDRESS 

SET THE ZERO FILL SWITCH 

SET FOR SIX(6) DIGITS 

SET THE ITERATION COUNT 

SAVE R3 

SAVE R4 

SAVE R5 

GET THE NUMBER OF DIGITS TO TYPE 

;SU3TRACT IT FOR MAX. ALLOWED 
;SAVE IT FOR USE 
;GET THE ZERO FILL SWITCH 
; PICKUP THE INPUT NUMBER 
;CLEAR THE OUTPUT WORD 



STYPCS: 


MOV 


@(SP) .-(SP) 




MOVB 


1 (SP) ,SCF1LL 




MOVB 


(SP)+.SOMODE 




ADD 


f>2, (SP) 




BR 


STYPON 


STYPOC: 


MOVB 


ft 1 , ? F H L 




MOV 3 


#6,S0M0DE+1 


$tyP0N: 


MOVB 


A-5.S0CNT 




MOV 


R3.-(SP) 




m- J 


R4,-(SP) 




MOV 


R5,-(SP) 




MOVB 


SOMODE+1 ,R4 




NEG 


R4 




ADD 


£6,R4 




MCVB 


R4.SCM0DE 




MOVB 


S0FILL.R4 




MOV 


12(SP) ,R5 




CLR 


R3 



CZQMCFQ 0-124K MEMORY EXERCISER, 
CZQMCF.P11 14-FE8-78 08:19 



16K VER MACY11 30A(1052) 20-FE8- 
BINARY TO OCTAL (ASCII) AND TYPE 



WW 



4853 


024770 


006105 




4854 


024772 


C00404 




4855 


024774 


0C6105 




4856 


024776 


0C6105 




4857 


025000 


0C6105 




4858 


025002 


01 0503 




4859 


025004 


0C61O3 




4860 


025006 


1C5367 


000100 


4861 


0250 12 


1C0017 




4862 


02i>0l4 


042703 


177770 


4863 


025020 


001002 




4864 


025022 


0C5704 




4865 


025024 


001403 




4866 


025026 


0C5204 




4867 


025030 


052703 


000060 


4868 


025034 


052703 


000040 


4869 


025040 


1 10367 


000042 


4870 


025044 


004567 


176442 


4871 


025050 


025106 




4872 


025052 


1C5367 


000032 


4873 


025056 


003346 




4874 


025060 


002402 




4875 


025062 


005204 




4876 


025064 


0007-'3 




4877 


025056 


01 2605 




4878 


025070 


01 2604 




4879 


025072 


012603 




4880 


025074 


016666 


000002 


4881 


025102 


012616 




4882 


025104 


000002 




4883 


0251 06 


000 




4884 


025107 


000 




4885 


0251 10 


000 




4886 


0251 1 1 


000 




^887 


0251 12 


000000 




4838 








4889 


0251 14 


005727 




4890 


0251 16 


000000 




4891 


025120 


001010 




4 892 


025122 


005267 


177770 


4893 


025126 


01 1667 


154034 


4894 


025132 


004767 


174U02 


4895 


025136 


000031 




4896 


025140 


000401 




4897 


025142 


000000 




4898 








4899 


025144 


0C5067 


177746 


4900 


025150 


000002 




4901 








4902 








4903 








4904 


025152 






4905 


025152 


01 0046 




4906 


025154 


01 0146 




4907 


025156 


010246 




4908 


025160 


01 0346 





2$: 


ROL 


R5 




ROL 


R5 




ROL 


R5 




MOV 


R5.R3 


3$: 


ROL 


R3 




DECB 


SOMODE 




BPL 


7S 




BIC 


#177770, R3 




BNE 


45 




TS T 


R4 




BEQ 


5S 


4$: 


INC 


R4 




BIS 


0'O,R3 


5$: 


BIS 


*' ,R3 




MOVB 


R3,8$ 




JS.l 


R5, SPRINT 




.WORD 


8$ 


7$: 


DECB 


SOCNT 




BGT 


2$ 




BLT 


6$ 




INC 


R4 




BR 


25 


6$: 


MOV 


(SP)+,R5 




MOV 


(SP)+,R4 




MOV 


(SP)+,R3 




MLV 


2(SP) ,4(SP) 




MOV 


(SP)+,(SP) 




RTI 




8S: 


.BYTE 







.BYTE 





SOCNT : 


.BYTE 





SOFILL 


.BYTE 





SOMODE 


.WORD 





;ERROR 


TRAP SERVICE ROUTINE 


ERRTRP 


TST 


(PC) + 


1S: 


.WORD 







BNE 


2$ 




INC 


1$ 




MOV 


(SP), STMP3 




JSR 


PC, SERROR 




.WORD 


31 




BR 


3$ 


2S: 


HALT 




3S: 


CLR 
RTI 


1$ 



'8 07:56 PAGE 98 



;RQTATE MSB INTO 
;G0 DO MS3 
;FORM THIS DIGIT 



;GET LSB OF THIS DIGIT 

;TYPE THIS DIGIT? 

;BR IF NO 

;GET RID OF JUNK 

;TEST FOR C 

-.SUPPRESS THIS G? 

;3R IF YES 

;DON'T SUPPRESS ANYMORE O'S 

;MAKE THIS DIGIT ASCII 

;MAKE ASCII IF NOT ALREADY 

;SAVE FOR TYPING 

GO PRINT OUT THE FOLLOWING MESSAGE. 

ADDRESS OF MESSAGE TO BE TYPED 

COUNT BY 1 

BR IF MORE TO DO 

BR IF DONE 

INSURE LAST DIGIT ISN'T A BLANK 

GO DO THE LAST DIGIT 

RESTORE R5 

RESTORE R4 

RESTORE R3 

SET THE STACK FOR RETURNING 

RETURN 

STORAGE FOR ASCII DIGIT 

TERMINATOR FOR TYPE ROUTINE 

OCTAL DIGIT COUNTER 

ZERO FILL SWITCH 

NUMBER OF DIGITS TO TYPE 

CHECK IF PPEV TRAP TO 4 REPORTED 

CONTAINS EFROR REPORTED FLAG 

BRANCH IF NOT REPORTED 

SET DOUBLE TRAP FLAG. 

SAVE THE BAD PC FOR TYPOUT. 

*** ERROR *** (GO TYPE A MESSAGE) 

ERROR TYPE CODE. 

SKIP HALT 

ERROR! SECOND TRAP TO 4 OCCURRED 

BEFORE FIRST WAS PRINTED 

RETURN TO PROGRAM AND TRY TO RECOVER 



.SBTTL PHYSICAL ADDRESS TYPE ROUTINE 

;* ROUTINE TO TYPE A PHYSICAL ADDRESS (18 BITS). 

STYPAD: 



MOV 


RO 


~(SP) ; 


;PUSH 


RO ON 


STACK 


MOV 


R1 


-(SP) 


; PUSH 


R1 ON 


STACK 


MOV 


R2 


-(SP) ; 


;PUSH 


R2 ON 


STACK 


MOV 


R3 


"(SP) ; 


;PUSH 


R3 ON 


STACK 



CZQMCFQ 0-1 24K MEMORY 
CZQMCF.P11 14-FEB-7S 



EXERCISER, 16K VER MA~Y1 1 30A(1052) 20-FEB-78 07:56 PAGE 99 
08=19 PHYSICAL ADDRESS TYPE ROUTINE 



4909 


025162 


01 6602 


000012 


4910 


025166 


005003 




491 1 


C25170 


005767 


153412 


4912 


025174 


ooi4:o 




4913 


025176 


"022737 


000001 177572 


4914 


025204 


00 1424 




4915 


C 2 52 06 


010201 




4916 


0252 10 


006101 




4917 


025212 


006101 




4918 


025214 


0C6101 




4919 


025216 


0-6101 




4920 


025220 


0C6101 




4921 


025222 


042701 


177761 


4922 


025226 


062701 


172340 


4923 


025232 


011101 




4924 


025234 


01 2700 


000006 


4925 


025240 


006301 




4926 


025242 


CG6103 




4927 


025244 


077003 




4928 


C25246 


042702 


160000 


4929 


025252 


060102 




4930 


025254 


005503 




4931 


025256 


006302 




4932 


025250 


006103 




4933 


025252 


01 2700 


000006 


4934 


025266 


0C0404 




4935 


025270 


00 6302 




4936 


025272 


006103 




4937 


025274 


00 5301 




4928 


025276 


001374 




4939 


0253C0 


01 2701 


000003 


4940 


C25304 


052703 


000060 


4941 


025310 


1 1 0367 


000036 


4942 


025314 


004567 


1761' 2 


4943 


025320 


025352 




4944 


025322 


005003 




4945 


025324 


005300 




4 946 


025326 


00 1360 




4947 


C25330 


0:2603 




4943 


C25332 


01 2602 




4949 


025334 


0'. 2601 




4950 


025335 


01 2600 




4951 


025340 


012616 




4952 


025342 


GC;45€7 


176144 


4953 


025346 


0270C5 




4 954 


025350 


000207 




4 955 


025352 


000 




4956 


025353 


000 




4957 








4958 








4959 








4 96C 








49S1 








4962 








4963 


025354 


005015 


052113 030461 


4964 


025362 


024040 


042515 047515 



MOV 

CLR 

TST 

BEO 

BIT 

BEQ 

MOV 

RC _ 

ROL 

ROL 

ROL 

ROL 

BIC 

ADD 

MOV 

MOV 

ASL 

ROL 

SOB 

BIC 

ADD 

ADC 

ASL 

ROL 

MOV 

BR 

ASL 

ROL 

DEC 

BNE 

MOV 

ADD 

MOVB 

JSR 

.WORD 

CLR 

DEC 

BNE 

MOV 

MOV 

MOV 

MOV 

MOV 

JSR 

.WORD 

RTS 

.EYTE 

.BYTE 



#177761 , 
PKIPARO, 
(R1), 



6160000, R2 
R1 . R2 



R3 

R2 



#6,R0 
3$ 



2$ 

#3,R1 

*60, 



8S 
SPRINT 



RO 

2$ 

(SP)+, R3' 

(SP)+,R2 

(SP)+,R1 

(SP)+,RO 

(SP)+, (SP) 

R5, SPRIN 

FILL2 

PC 



GET BASE ADDRESS 
WORKING & INDEX REGISTER 
CHECK FOR MEM MGMT AVAILABLE 
BRANCH IF NO MEM MGMT 
CHECK IF MEM MGMT ENABLED 
BRANCH IF MEM MGMT NOT ENABLED 
COPY VIRTUAL ADR 
SHUFFLE BITS 13,14,15 INTO 1,2, 



CLR ALL EXCEPT BITS 1 ,2,3 

SET TO APPROPRIATE PAR 

GET CONTENTS OF PAR 

SET UP COUNTER 

SHIFT PAR 

SAVE OVERFLOW BITS 

COUNT SIX SHIFTS 

SAVE BANK BITS 

COMPUTE PHYSICAL ADDRESS 

MAKE SURE CARRy- ISN'T LOST! 

FIRST DIGIT TO R3 



DIGIT COUNT 
PRINT FIRST DIGIT 



;DIG1T SHIFT COUNT 

;MAKE IT AN ASCII DIGIT 

; LOAD DIGIT INTO MESSAGE 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 

; ADDRESS OF MESSAGE TO BE TYPED 

; CLEAR INDEX 

;DEC DIGIT COUNT 

; ; POP STACK INTO R3 

; ; POP STACK INTO "2 

; ; POP STACK INTO R1 

; ; POP STACK INTO RO 

; ADJUST THE STACK TO CLEAR DATA 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 

;ADDRESS OF MESSAGE TO BE TYPED 

; RETURN 

;ONE DIGIT MESSAGE BUFFER 

; MESSAGE TERMINATOR 



.SBTTL STANDARD PROGRAM MESSAGES 



; VARIOUS MFC SAGE PRINTOUTS USED THRUOJT 
;TH£ PSCGRAM 



.ASCI2 <15><12>'KT11 (MEMORY MANAGEMENT) AVAILABLE" 



CZQMCFO 0-124K MEMORY EXERCISER, 1 6K VER MACY11 3PA(1052) 20~FEBt-78 07:55 PAGE 100 
CZ0MCF.P11 14-FEB-78 09=19 STANDARD PROGRAM MESSAGES 



<15><1 J>'MEMORY MAP:' 
<15><12>'BYTE MEMORY MAP: 



4965 


025370 


054522 


046440 

04 e: 05 


047101 






4956 


025376 


043501 


O47105 






4937 


025404 


024524 


0404,40 


040526 






4968 


0254 12 


0461 1 1 


041 101 


0425M 






4969 


025420 


OOQ 










4970 


025421 


015 


Q46412 


046505 


MEMMES: 


.ASCJ-? 


4971 


025426 


051 117 


Q20131 


040515 






4972 


025434 


025120 


000 








4973 


025437 


015 


041012 


0521 31 


8YTMES: 


•ASCI^ 


4974 


025444 


C2Q103 


042515 


047515 




4975 


025452 


C54522 


04,6440 


050101 






4976 


Q2S450 


0C0072 










4977 


02E462 


005015 


040520 


044522 


MTMAP: 


,ASCI? 


4978 


C23470 


054524, 


0464- i 


046505 






4979 


025476 


0E11 17 


020131 


04,0615 






4,980 


025504 


035120 


000 








4981 


025507 


015 


043C12 


047522 


FRO^i: 


.ASCIZ 


4982 


025514 


020115 


000 








4983 


Q-25517 


04Q 


047524 


00Q040 


Tp: 


,fi$L.Z 


4984 


025524 


9:5015 


0471 1 1 


052523 


JN5MFF; 


•ASCI? 


498p 


025532 


043106 


041511 


04251 1 






4986 


025540 


052116 


046440 


046S05 






4987 


025546 


031 1 17 


027131 


027056 






4983 


023554 


044506 


051522 


020124 






4939 


025562 


023051 


0201 13 


0475^6 






4990 


C25570 


020124 


046^01 


0?O| 14 






4991 


025576 


044124 


051105 


02wj.Q5 






4992 


025504 


000 










4893 


025605 


P15 


047012 


020117 


mtr; 


.ASCIZ 


4 994 


C25612, 


040520 


■04452? 


054524 






4995 


025620 


05104Q 


043506 


05,1511 






4996 


02562S 


04 2524 


051522 


043040 






4997 


026634 


0=2517 


0421 16 


COO 






4998 


025641 


015 


051 01 a 


C51505 


PWR.M^Q: 


.ASCI? 


4999 


2'; 646 


040524 


052122 


047111 






5000 


0256-54 


020107 


04310} 


042524 






5001 


02=562 


020122 


020101 


047520 






5002 


i 25c 70 


042527 


020122 


040:506 






5003 


025676 


P46MV 


051125 


C065O5 






5004 


25 7 04 


CC0C12 










50P5 


0257Q5 


cpsqis 


P47516 


P50C40 


NQRES: 


.ASCI? 


5006 


C25714 


051101 


052111 


020131 






5007 


025722 


0511C5 


047522 


051522 






5008 


025730 


P430 


052517 


042116 






5009 


025736 


047440 


020116, 


042515 






5010 


025744 


047515 


054522 


051440 






5011 


025752 


040503 


0O$516 


CQ0C13 






5Q12 


025760 


005015- 


051120 


043517 


PRDREU: 


..'■^CII 


5013 


025766 


040522 


0201 15 


0475 16 






5014 


025774 


020127 


042522 


044533 






5015 


026002 


0"2504 


020123 


040502 






5016 


Q2S010 


0-^5503 


040440 


020124 






5017 


026016 


020Q60 


047524 


034G49 






5018 


026024 


113 










5019 


026025 


015 


044012 


052111 




.ASCJ3 


5020 


025932 


041440 


047117 


044524 







<15X12>'PARITY MEMORY MAP:' 



<15><12*'FRQM 



' TO 

<15»<t2»' INSUFFICIENT MEMORY, ,, FHST 16K NOT AH THERE!' 



<15><12VNQ PARITY REGISTERS FOUND' 



<15><12»'RESTARTJNG AFTER A PQWER FAI LURE ' <1 5X1 2> 



<15X12>'NO PARITY ERRORS FOUND ON MEMORY SCAN » <15X1 2> 



<15X12>'PRQGRAM NQW RESIDES BACK AT Tp 8K' 



<15><12>'HiT CONTINUE FOR NORMAL RUNNJNG' <1 5><1 2> 



) 



CZQMCFO Ct1?4K MEMORY EXERCISER, 1 6K VER MACYM 30A(1Q52) 20-FEB-78 07:56 PAGE 101 
CZQMCF.PM 14-FE8'-79 08: 19 STANDARD PRQuRfM. MESSAGES 



MX1: .ASCIZ <15><12 > 'REGISTER AT ' 

M*2: .ASCIZ ' CONTROLS ' 

MX3: , ASCIZ <15X12>'CQRE PARITY ' 

M: •': .ASCIZ <15X12>'M0S PARITY • 

MX5: ,ASCU <15><12>'MS11tK CSR ' 

MX6! , ASCIZ 'MS11-K MEMORY PRESENT!! TO COMPLETELY TEST RUN DZMML...' 



.ASC|Z <15><12>'N0 MEMORY FOUND.' 



FADMES: .ASC^l <15><1 2><1 2X1 2> • INPUT ALL PARAMETERS IN OCTAL. 



.ASCIZ <15><12>'FIRST ADDRESS: 



LADMES: .ASCIZ <15><12>'LAST ADDRESS! 



•ASCII <15X12>'?ADDRESS IN UNMAPPED BANK?' 



5021 


626040- 


05221S 


020105 


0475Q5 


5022 


0?bC4S 


020122 


04751-5 


046522 


5023 


026054 


046101 


051040 


04712? 


5024 


C25Q62 


04 4516 


043516 


O05S15 


5025 


025070 


COO 






5026 


026071 


015 


051012 


04?"O5 


5027 


025076 


PS 151 1 


042524 


020122 


5023 


02S104 


C52101 


000040 




5029 


0251 10 


041440 


0471 17 


051124 


5030 


0261 1 S 


0-6117 


020123 


000 


5031 


026123 


015 


04M12 


051 1-7 


5032 


0261 30 


02 01 5 


040520 


■S44522 


5033 


025136 


O: *,5 1 


000040 




.5034 


026142 


cc^o 


047515 


C20123 


5035 


026150 


0-06. 


©44522 


054524 


5036 


026155 


02 0P40 






5037 


0261 qa 


0C5C15 


051515 


030461 


5038 


0261 66 


C-545S 


041440 


05U23 


5039 


026174 


00 0040 






5040 


026176 


051515 


0' > 461 


045455 


5041 


02S204 


Q46440 


0- 505 


0511 17 


5p42 


25212 


0201 31 


0- 1 1 20 


051505 


5043 


' p26?20 


C-'710^ 


020524 


G20:41 


5044 


023226 


0-7524 


041440 


046517 


5045 


026234 


046 120 ' 

C2C131 


052105 


046 25 


5046 


026242 


042524 

047125 


■ 052.^3 


5047 


026250 


C?104P 


042040 


5043 


026256 


0--6532 


0461 15 


027C56 


5049 


026264 


CCQ056 






5050 


023265 


0C5O15 


047516 


046440 


6051 


026274 


e 6p05 


05,11 17 


020131 


5052 


026302 


047566 


047125 


027104 


5053 


0263 10 


CCO 






5054 


26311 


015 


005012 


044412 


5055 


026316 


P5G116 


052125 


040440 


5056 


02532* 


0-61 14 


()50040 


O5H01 


5057 


026332 


0^6501 


C52105 


051105 


5053 


026340 


020123 


0471 11 


047440 


5059 


2 63 4 6 


05 2103 


046101 


COS 


5060 


C26352 


015 


043012 


054 1 1 1 


5051 


C26260 


05 2123 


040440 


T4?104 


5062 


222365 


02,2522 


051623 


020 2 72 


5063 


026374 , 


6 2 004 






5064 


263 7 6 


005015 


C40514 


05: 1 3 


t<0CS 


22G4C4 


£4 0440 


04 2104 


042522 


5065 


026412 


051523 


020072 


020 


5067 


62 6420 


oco 






5058 


60642 1 


015 


037412 


0421 01 


5C69 


2 64 26 


CI, 11 04 


06 1505 


020123 


507 


C26-.34 


0^71 11 


052440 


046516 


5071 


2 2 6442 


2601 CI 


042520 
045516 


02C104 


5072 


C2o450 


0405C2 


002C77 


5073 


026456 


02 5015 


042523 


C42514 


5074 


226464 


052103, 


0414^0 


6471 17 


5075 


026472 


052123 


047101 


033124 


S076 


026500 


oco 







.ASCIZ <15><12>'SELECT qON§TANT; 



CZQMCFC 
CZQMCF. ! 

5077 
5078 
5079 
5080 
5001 
5082 
5083 
5084 
5085 
5086 
5087 
5088 
5089 
5090 
5091 
5092 
5093 
5094 
5095 
5096 
5097 
5098 
5099 
5100 
5101 
5102 
5103 
5104 
5105 
5106 
5107 
5108 
5109 
5110 
511 1 
5112 
51 13 
51 14 
5115 
5116 
51 17 
51 18 
51 19 
5120 
5121 
5122 
5123 
5124 
5125 
5126 
5127 
5128 
5129 
5130 
5131 
5132 



0-124K '/EMORY EXERCISER, 
1 14-FEB-78 08: 19 



16K VER MA<~Y11 30A(1052) 20-FEB-78 07:56 PAGE 102 
STANDARD PROGRAM MESSAGES 



026506 
026514 
026522 
026530 
026536 
026542 
026550 
026556 
026564 
026572 
025600 
C26606 
025614 
026622 
026630 
026636 
026644 
026652 
026660 
026666 
026674 
026700 
026706 
026714 
026722 
267 30 
026736 
0267 37 
026744 
026752 
02676C 
026763 
026770 
026776 
027004 
027005 



027010 
C27016 
027024 
027032 
027C40 
027044 
027052 
027060 
027066 
027074 
027100 
027106 



015 
050130 
020104" 
0545'"2 
0521 1 1 
047522 
005015 
040522 
047514 
020104 
0'5015 
052040 
C471 17 
044522 
051 122 
052517 
005015 
044516 
046505 
047506 
020104 
054524 
005015 
054524 
051 1 17 
0201 14 
046103 
000 
015 
04 2515 
052040 
02 71 C4 
015 
050120 
042524 
000 
377 



^•052 
51040 



051 1 17 
0-2101 
020123 
0-324-50 
052C50 
C24465 
047503 
0521 16 
020101 
024122 



052412 
041505 
042515 
050040 
020131 
000122 
051 120 
0201 15 
040503 
047524 
047515 
040510 
020105 
054524 
051117 
0421 16 
041523 
04351S 
051 1 17 
020122 
040520 
000f56 
040520 
042440 
053440 
047516 
040505 

047012 
047515 
051505 
000 
051412 
0471 ' ! 
052123 

000377 



044522 
043505 
020122 
042440 
000056 

051 1 04 
042524 
051 122 
052123 
000056 
051516 
0420-30 

051 105 
051524 



042516 
042524 
047515 
051 101 
051 1 05 

043517 
042522 
042524 
000:40 
042522 
0201 16 
040520 
042440 
043040 
000056 
047101 
046440 
020131 
040502 
044522 



UNEXPT: .ASCIZ <1 5X1 2> ' UNEXPECTED MEMORY. PARITY ERROR ' 



PhELOC: .ASCIZ <1 5><1 2> ' PROGRAM RELOCATED TO 



MTOE' .ASCIZ <15><12>'M0RE THAN ONE PARITY ERROR FOUND.' 



SCANM*. .ASCIZ <15><12>'SCANNING MEMORY FOR BAD PARITY. 



044522 PEWNC: .ASCIZ <1 5><1 2> ' PARITY ERROR WILL NOT CLEAR. 

0511^2 

0461 l 1 

020124 

027122 



0201 17 

054522 
042524 

044513 
020107 
021440 



NOMTST: .ASCIZ <15><12>'N0 MEMORY TESTED.' 



SKPMES: .ASCIZ <15><12>'SKIPPING TEST 



FILL2: .ASCIZ <377><377> 

.SBTTL ERR.-? REPORTING MESSAGE,, AND TABLES. 



C54524 
05151 1 
040504 
051 122 

051505 
052123 
0511 17 
026461 

040524 
052101 
047522 
033124 



MESSAGE BLOCK FOR ERROR TABLE TYPEOUTS 
1: .ASCIZ 'PARITY REGISTER DATA ERROR. 



'ADDRESS TEST ERROR( TST 1 -5) . 



.ASCIZ 'CONSTANT DATA ERROR ( TST6-1 ) . 



CZQMCFO 


0-124 


K MEMORY 


EXERCIS 


ER, 16K 


CZQMCF. 


P1 1 1 


4-FEB-78 


08: 19 




5133 


027130 


020455 


024460 


000056 


5134 


C27136 


047522 


040-524 


C44524 


5135 


027144 


043516 


041040 


0521 1 1 


5136 


027152 


042440 


051 122 


051 1 17 


5137 


027160 


052050 


052123 


0304b1 


5133 


027166 


030455 


024462 


000156 


5139 


0271 74 


047515 


020123 


042522 


5140 


027202 


051 106 


051505 


0201 10 


5141 


027210 


0-2524 


052123 


042440 


5142 


027216 


Or 1 122 


051 1 17 


C24C40 


5143 


027224 


051524 


020124 


030063 


5144 


027232 


021455 


024461 


000C56 


5145 


027240 


020063 


047530 


020122 


5146 


027245 


020071 


040520 


052124 


5147 


027254 


05 1 105 


0201 16 


051 105 


5148 


027262 


047522 


024122 


051524 


5149 


027270 


C30524 


026433 


033C61 


5150 


027276 


027051 


000 




5151 


027301 


1 15 


051 101 


044103 


5152 


027306 


0-71 1 1 


020107 


023461 


5153 


027314 


020123 


047101 


0201 04 


5154 


027322 


023460 


020123 


051 105 


5155 


027330 


047522 


024122 


051524 


5156 


027336 


020124 


033462 


027C51 


5157 


027344 


000 






5158 


027345 


120 


051 101 


0521 1 1 


5159 


027352 


020131 


042515 


04'. .,15 


5160 


027360 


C54522 


040440 


0421 04 


5161 


027366 


042522 


051523 


042440 


5162 


027374 


051 122 


051 1 1 7 


052C50 


5163 


027402 


052123 


033461 


027051 


5164 


027410 


OCO 






5165 


02741 1 


104 


052101 


050111 


5166 


027416 


053440 


0521 1 1 


0201 10 


5167 


027424 


051 127 


0471 17 


C20107 


5168 


027432 


040520 


044522 


054524 


5169 


027440 


0-2040 


0421 1 1 


023516 


5170 


027445 


020124 


051 124 


050101 


5171 


027454 


052050 


052123 


033161 


5172 


027462 


027051 


000 




5173 


027465 


127 


047522 


C43516 


5174 


027472 


050040 


051 101 


C521 11 


5175 


027500 


020131 


051 124 


050101 


5176 


027506 


04 25'".0 


026104 


C41C40 


5177 


2 7514 


052125 


047040 


0201 17 


5178 


027522 


042522 


044507 


052123 


5179 


027530 


051 105 


051440 


047510 


5180 


C27536 


051527 


042440 


051 122 


5181 


C27544 


051 1 17 


043040 


04G514 


51B2 


02 7 552 


027107 


000 




5183 


027555 


120 


051 101 


C521 1 1 


5164 


027562 


020131 


042522 


044507 


5185 


027570 


05 2123 


051 105 


047C.40 


5186 


027576 


0521 17 


046440 


C50101 


5187 


027604 


042520 


020104 


051501 


5188 


027612 


041440 


0471 17 


051 124 



yER MACY11 30A(1052) 20-FEB-78 07:56 PAGE 103 
ERROR REPORTING MESSAGES AND TABLES. 



.ASCIZ 'ROTATING BIT ERROR ( TST 1 1 -1 2) . 



.ASCIZ 'MOS REFRESH TEST ERROR (TST 30-31) 



.ASCIZ '3 XOR 9 PATTERN ERROR( TST1 3-1 6) . ' 



.ASCIZ "MARCHING 1'S A!. J O'S ERROR(TST 27)." 



.ASCIZ 'PARITY MEMORY ADDRESS ERROR ( TST 1 7) . 



.ASCIZ "DATIP WITH WRONG PARITY DIDN'T TRAP ( TST 1 7 ) . " 



.ASCIZ 'WRONG PARITY TRAPPED, BUT NQ REGISTER SHOWS ERROR FLAG. 



.ASCIZ 'PARITY REGISTER NOT MAPPED AS CONTROLLING THIS ADDRESS( TST 1 7 ) . 



CZQMCFQ 
C20MCF . ? 



24K VEMORY EXERCISER, 
14-FEB-78 08: 19 



6K VER MACY11 30A(1052) 20-FEP-78 
ERROR REPQR1*NG MESSAGES AND TAbl.ES. 



07:56 PAGE 104 



5189 


027S20 


0-61 17 


044514 


043516 




5190 


027625 


052040 


044510 


020123 




5191 


027634 


0-2101 


051 104 


05,1595 




5192 


027642 


024123 


051524 


030524 




5193 


027650 


024467 


000055 






5194 


027654 


047515 


042522 


052*40 


PM16 


5195 


027662 


0-0510 


0201 16 


0471 17 




5195 


027670 


020105 


042522 


044507 




5197 


027676 


052123 


051 105 


044440 




5198 


027704 


0421 16 


04151 1 


052101 




5199 


0277 12 


042105 


050Q40 


051 101 




5200 


027720 


0521 1 1 


020131 


051105 




5201 


027726 


04 7522 


027122 


:oo 




5202 


027733 


104 


052101 


020101 


DM17 


5203 


027740 


0-4123 


052517 


0421 14 




5204 


027746 


C23516 


020124 


040510 




5203 


027754 


042526 


041440 


040510 




5206 


027762 


C43516 


042105 


C53140 




5207 


C27770 


0-2510 


0201 16 


040520 




5208 


027776 


044522 


054524 


042440 




5209 


030004 


051 122 


051 1 17 


052740 




5210 


030012 


0-0522 


050120 


042I05 




5211 


03C020 


0-12050 


052123 


033461 




5212 


030026 


0270.. 1 


000 






5213 


030031 


122 


047101 


047504 


DM20 


5214 


030036 


020115 


040504 


040524 




5215 


030044 


0**2440 


051 122 


051 1 17 




5216 


030052 


052050 


052123 


030C62 




5217 


030050 


027051 


000 






5218 


030063 


1 1 1 


051516 


051124 


DM21 


5219 


030070 


0- 1525 


044524 


0471 17 




5220 


030075 


042440 


042530 


052503 




5221 


030104 


04 4524 


0471 17 


042440 




5222 


0301 12 


051122 


051 1 17 


052C50 




5223 


030120 


052123 


030462 


031055 




5224 


030126 


024466 


000056 






5225 


030132 


051120 


043517 


040522 


DM23 


5226 


030140 


0201 15 


047503 


042504 




5227 


030145 


041440 


040510 


C43516 




5228 


030154 


0421C5 


053440 


042510 




5229 


030162 


0201 16 


042522 


047514 




5230 


C301 70 


040503 


042^24 


0271Q4 




5231 


030176 


000 








5232 


030177 


124 


040522 


0501 *0 


DM24: 


5233 


030204 


C421C5 


020054 


052=502 




5234 


030212 


020124 


047516 


051040 




5235 


030220 


0435C5 


05151 1 


042524 




5236 


030226 


C20122 


040510 


020104 




5237 


030234 


051 105 


047522 


020122 




5238 


030242 


C44502 


020124 


042523 




5239 


030250 


027124 


000 






5240 


030253 


124 


040522 


050120 


DM25: 


5241 


030260 


0421C5 


052040 


0201 17 




5242 


030266 


030461 


0270u4 


000 




5243 


030273 


106 


044501 


042514 


DM26: 


5244 


030300 


020104 


047524 


052040 





.ASCIZ 'MORE THAN ONE REGISTER INDICATED PARITY ERROR.' 



.ASCIZ "DATA SHOULDN'T HAVE CHANGED WHEN PARITY ERROR TRAPPED( TST 1 7 ) . " 



.ASCIZ 'RANDOM DATA ERROR ( TST20) . 



, ASCIZ 'INSTRUCTION EXECUTION ERROP( TST21-26) . 



.ASCIZ 'PROGRAM CODE CHANGED WHEN RELOCATED. 



.ASCIZ 'TRAPPED, BUT NO REGISTER HAD ERROR BIT SET. 



.ASCIZ 'TRAPPED TO 114. ' 
.ASCIZ 'FAILED TO TRAP. • 



CZOMCFO 
CZ0MCF.P1 1 



-124K MEMORY EXERCISER, 
14-FEB-78 08:19 



6K VER MACY11 30A(1052) 20-FEBr78 07:56 PAGE 105 
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5245 
5246 
5247 
5248 
5249 
5250 
5251 
5252 
5253 
5254 
5255 
5256 
5257 
5258 
5259 
5250 
5261 
5262 
5263 
5264 
5265 
5266 
5267 
5268 
5269 
5270 
5271 
5272 
5273 
5274 
5275 
5276 
5277 
5273 
5279 
5230 
5281 
5282 
5283 



5287 
5283 
5289 
52S0 
5291 
5292 
5293 
5294 
5295 
5296 
5297 
5298 
5299 
5300 



030306 
030313 
030320 
030326 
030334 
030342 
030347 
030354 
030362 



030367 
030374 
030402 
030405 
030414 
030422 
0304 30 
030433 
030440 
030446 
030454 
030462 
030470 
030475 
03C502 
030510 
030516 
030524 
030530 
030535 

30552 
030560 
030551 
030566 
030574 
020602 
03061 
03C6 16 

03C62G 
C3C634 

03064 2 
030S50 
030656 
305 54 
030672 
C20673 
030700 
03C706 
030714 
030715 



040522 
050 
047117 
0461^? 
047123 
052105 
015 
050120 
0201 17 



120 

004507 
040527 
027526 
050C57 
051411 
051501 

126 
027520 
004501 
027526 
050057 
0C4507 

126 
027520 
052501 
004507 
040527 
027526 
050057 
004524 
041057 

000 

126 
027520 
0-1522 
051504 
05 141 1 
051501 

126 
02 7520 
050122 



027520 

043505 

000 



043505 
000 



027120 
041501 
042440 
020105 
052047 
027051 
052012 
042105 
020064 



004503 
027523 
000123 
041520 
004503 
041057 
000 
050^57 
041520 
027523 
041520 
004503 
040515 
050057 
041520 
004524 
027523 
000123 
041520 
0045^1 
040515 
05341 1 

050057 
041520 
046440 
020124 
041057 
000 
050057 
041520 
050057 
041520 
004503 
041520 
05341 1 

050057 
041520 
053411 



122 043505 



COO 
044524 
040516 
040527 
051440 

000 
040522 
052040 

000 



042522 
004502 

050011 

040515 
05341 1 

004503 
04641 1 
0001 02 
050'". . 1 
042522 
COO 
004503 
04641 1 
042522 
004502 

05001 1 
052511 
051411 
051501 

C04503 

05141 1 
004501 
040515 
05341 1 

004503 
0520 1 1 
C00103 
05. -11 
051 124 
05101 1 
051501 

C045j3 

C51501 

0534 1 1 



DM27: .ASCIZ "(ACTION ENABLE WASN'T SET)." 

Dlv3i: .ASCIZ <1 5><1 ?>' TRAPPED TQ 4 ' 

DATA COLUMN HEADINGS 

DHi: .ASCIZ 'PC REC S/B WAS' 

DH2: .ASCIZ 'V/PC P/PC MA S/B WAS' 

PH12: .ASCIZ 'V/PC P/PC MA S/B' 

DH14: .ASCIZ 'V/PC P/PC REG MA' 

DH15: .ASCI7 'V/PC P/PC MAUT REG S/B 

DH21: .ASCIZ 'V/PC P/PC ILIT MA S/B 

DH23: -ASCIZ 'V/PC P/PC SRC MA DST MA S/B 

DH24: .ASCIZ 'V/PC P/PC TRP/PC 

DH25: .ASCIZ 'V/PC P/PC TRP/PC REG WAS' 

PH26: .ASCIZ 'V/PC f-/Pp REG WAS' 

DH30: .AS. 12 'REG WAS MA WAS' 



C2QMCF0 0-124K 
C2QMCF . P1 1 14- 



IK EMORY EXERCISER, 
FEB-78 08: 19 



16K VER MACY11 30A(1052) 20-FE3-78 07=56 PAGE 106 
ERROR REPORTING MESSAGES AND TABLES. 



5301 


030722 


051501 


5302 


030730 


040527 


5303 






5304 






5305 






5306 






5307 


030734 


000 


5303 


030737 


000 


5309 


030740 


000 


5310 


030743 


000 


5311 


03C745 


000 


5312 


030750 


376 


5313 


030752 


000 


5314 


030755 


377 


5315 


030760 


000 


5316 


030763 


377 


5317 


030766 


377 


5318 


030771 


376 


5319 






5320 






5321 




0321 10 


5322 






5323 




000001 



377 
000 
377 
376 
377 
OC ) 
377 
000 
COO 



000 


;* DATA FORMA 
DM: .BYTE 


377 


DF2: 


.BYTE 


377 


DF3: 


.BYTE 


377 
000 
000 
000 
377 


DF14: 
DF21: 
DF30: 


.BYTE 
.BYTE 
.BYTE 

.EVE- J 




. ■ 321 10 






.END 



o,- 

-1 ,0 



0,0 

-1,0,0 
-1 ,-2,-2 
-1 ,-1 ,0,0 
0,-1 ,0,0 
-1 ,-2 



;THE LOADERS ARE SAVE HERE TO END OF 8K 



CZQMCFO 


0-12 


CZQMCF. 


P1 1 


ABASE = 


000000 


ACDW1 = 


000000 


ACDW2 = 


000000 


ACPUOP-* 


CCOOOO 


ADDWO = 


000000 


A0DW1 = 


000000 


ADCW10=. 


ocooco 


ADDW1 1 = 


000000 


ADDW12= 


000000 


AjDW13= 


oooooc 


ADDW14= 


oocooo 


ADDW15= 


oooooc 


ADDW2 - 


oocooo 


ADDW3 = 


000000 


A DOW 4 = 


000000 


ADDW5 = 


ooocoo 


ADDWS - 


ooocco 


A DDK 7 = 


000000 


ADDW8 = 


oocooo 


ADDW9 = 


ocoooo 


A3EVCT-. 


000000 


ADEVM = 


CCOOOO 


AE 


C00001 


AENV = 


oocooo 


AENV'M = 


cooooo 


AFATAL= 


000000 


AMADR1 = 


oooooc 


AMADR2- 


000000 


AMADR3'-- 


ooocoo 


AMADR4-- 


occcoo 


AMAMS1 = 


ocoooo 


A MAMS 2= 


ocoooo 


AMAMS3 - 


ooocoo 


AMAMS4^ 


CCOOOO 


Ai/SGAD^ 


COOOOO 


AMSGLGs 


OOOOOC 


Ar.'iGTY = 


COCOOO 


AMTYP1* 


OCCCOO 


AV.TY?2 = 


COCOCO 


AMTYP3= 


000000 


AMTYP4; 


OOCOOO 


APAS5 ■--: 


OCCCOO 


APR I OR-- 


000000 


APTCSlU 


000040 


API ENV=- 


000001 


APTS12-- 


000 2 00 


APTSPD- 


000100 


ASl-.REG^ 


CODOGO 


ATESTN- 


000003 


ACNIT ;; 


OOCOOO 


AUSl'.R ; 


COCOCO 


AVECT1 =. 


000000 


AVECT2:: 


OCOOCO 


BADADR 


0254 21 


CANKNO 


016130 


B1TPT 


001544 
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384 


425 


384 


427 


384 


428 


384 


399 


384 


429 


384 


*->o 


384 


439 


384 


440 


384 


441 


384 


442 


384 


44?. 


384 


444 


384 


431 


384 


432 


384 


433 


384 


434 


334 


435 


384 


436 


384 


437 


384 


438 


384 


390 


384 


426 


179** 


2433 


384 


395 


384 


396 


384 


387 


384 


412 


384 


416 


384 


419 


384 


422 


384 


4C6 


384 


414 


384 


417 


384 


420 


384 


392 



384 


393 




384 


386 




284 


407 




384 


415 




384 


418 




384 


421 




334 


369 




384 






4598 


47" n 




4187 


45-11 


4659 


676 


4736# 




4593 


46S1 


4739 


334 


397 




334 


333 




384 


39! 




334 


393 




384 


423 




384 


424 




144u 


50630 




1632 


164 1 


1667 


522# 


1 134* 


1 135 



3397*> 
1172 
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C2QMCF.P11 14r-FEB-78 Q8: 19 CROSS REFERENCE TABLE «p- USER SYMBQLS SEQ 

2409 2411 2467 2469 3148* 3149* 3156 3158 3161* 3162* 2165 3167 3172 

3173 3192 3135* 3198 3199 3213 3214 3215 3217 3226* 3227* 3231* 3236 

3238 3259* 3360* 3?62 3264 3266 3268 3272 3273 3303* 3205 3307 3310 

3317 33(9 3324 3325 3340 3342 3350* 3351* 3353 3355 3360* 3362 3364 

3366 3.40Q 340] 

3IT0 = 000001 123* 235 251 1039 1213 1369 1380 1470 1491 2456 2485 2501 3148 

3767 2800 *931 4073 

113* 123 

112* 122 

111* 121 

110* 120 

109* 119 

108* 118 

107* 1 1 7 

106* 116 

105* 115 4022 

104* 114 4032 4201 

122* 

103* 4173 

102* 4p39 

101* 

1?Q* 3174 3201 3274 3311 4181 

99* 217 4008 

98* 248*1 3226 3527 

121* 

120* 

1 19* 

1 18* 

1 17* 

116* 

115* 3231 3560 

114* 

547* 3151 3222 3254 4059* 4064* 

13' ' 

1033 4973* 

551* 937* 940* 1483 

552* 1485* 

1755 2417 3331 3759» 

1133 120 8 3904 33; J* 

1458 5073* 

38* 4537 4647 

39* 9C6 4608 4G47 

1273 1283* ' 

45* 361 864 

719 5307* 

774 779 784 806 811 816 5313* 

"24 ,34 739 744 749 754 795 821 826 5309* 

800 5315* ^ 

729 759 764 769. 79Q 5311* 

831 836 5317* 

717 5259* 

762 76/ 526C* 

772 732 5269* 

777 5272* 

722 727 732 737 742 747 752 757 783 793 5262* 

798 5277* 



BIT 00 -- 


000001 


B I T 1 -■■■ 


000002 


BIT02 * 


000004 


BIT03 a 


OC0010 


BJT04 = 


000029 


3IT05 = 


0C0C40 


BIT06 ? 


Q0010Q 


6JT07 = 


0C0200 


B1T08 = 


000400 


BIT09 = 


001000 


BIT1 r 


QCOOO? 


BIT10 = 


002000 


BIT11 ? 


004000 


BIT12 = 


010000 


BIT13 a 


020000 


BIT14 ~ 


040000 


BIT15 = 


100000 


BIT2 = 


000094 


BIT3 s 


Q00010 


BIT4 = 


OC0020 


BITS = 


00004Q 


PITS - 


000100 


BIT7 = 


000200 


BIT8 = 


O004C0 


BIT9 = 


OO10OC 


BLKMSK 


001606 


BPTVEC= 


000014 


BYTMES 


025437 


CASf LG 


01616 


CASREG 


001620 


CKPMER 


017536 


CLRPAR 


020270 


CONST 


025455 


CR 


000015 


CRIF = 


000200 


CTRLS 


005072 


DDI5P = 


177570 


DF1 


030734 


DF14 


030752 


DF2 


030740 


DF21 


030750 


DF3 


030745 


DF30 


030765 


DH1 


030367 


DH12 


030433 


DH14 


030454 


DH15 


030475 


DK2 


030405 


DH21 


020530 



CZOMCFO 


0-12- 


CZQ.MCF, 


P1 1 


DH23 


030561 


DH24 


030521 


DH25 


03C642 


DH26 


030673 


DH30 


030715 


DIDEH 


012772 


DIDBL 


012700 


DIDO 


012610 


DIPDO 


013070 


DI5PLA 


001 142 


DISPRE 


000174 


DM1 


027010 


DV, 1 


027301 


DM1 1 


027345 


DM12 


027411 


DM13 


027465 


DM14 


027555 


DM16 


027554 


DM 1 7 


027733 


QM2 


027044 


DM20 


03C031 


DM2 1 


030063 


DM23 


030132 


DM24 


030177 


DM25 


030253 


DM26 


030273 


DM27 


030313 


DM31 


030347 


DM4 


027100 


DM5 


027136 


DM6 


027174 


DM7 


027240 


DONE 


013776 


D^DBH 


013254 


DPD3L 


013162 


DSWR = 


177570 


DTI 


001546 


DT12 


001674 


DTI 4 


001705 


DT15 


001720 


DT2 


001660 


DT21 


001736 
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DT30 


002030 


DT31 


C02042 


EKTVEC-- 


000030 


ENDINS 


021624 


ERRTRP 


0251 14 


ERRVECs 


000004 


FADMAP 


001570 



FADMES 02631 



804 


5282,* 














809 


5298* 














814 


5291* 














ei9 


824 


5296* 












829 


5330* 














271 1* 
















2662* 
















2613* 
















2761* 
















361* 


854* 


87?* 


881* 


3594* 


3647* 


4054* 


4172 


195* 


872 














716 


776 


5119* 












751 


•515'.* 














756 


5158* 














761 


5165* 














766 


5173* 














771 


5193* 














781 


5194* 














786 


5202* 














721 


726 


5124* 












792 


5213* 














797 


5218* 














80? 


5225* 














808 


5232* 














813 


52.40* 














618 


5243* 














623 


5246* 














833 


5251* 














731 


5129* 














736 


5134* 














741 


5139* 














746 


5145* 














3038* 
















2859* 
















2310* 
















44* 


360 


863 












573* 


710 














577* 


763 


7SS 












579* 


773 


733 












531* 


773 














575* 


723 


728 


733 


738 


743 


748 


753 


5^4 » 


799 














5?7* 


805 














590* 


81- 














592* 


815 














■ 594* 


820 


825 












596* 


830 














593* 


835 














133* 
















4053 


4131 


4144* 












206 


1004 


1112 


3685 


4889* 








125* 


2C5 


861 


862- 


873* 


927* 


938* 


964' 


35SB* 


364 1* 


368 If 


3685* 


4013 


4014* 


4016* 


4019- 


54w* 


1421* 


1422* 


3215 


3217 


3340 


3342 


3364 


4111 
















1374 


5054* 
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FADMSK 


001566 


FILL2 


027005 


FLAG8K 


001557 


FROM 


025507 


F ST ADR 


001562 


GMPR 


004072 


GMPRA 


004120 


GMPRB 


004134 


GMPRC 


004142 


GMPRD 


004202 


GNS 


»»***« 


HT 


00001 1 


IMPCHE= 


177746 


IMPCK 


003272 


INITDN 


015064 


INITEX 


015176 


I N I TMM 


014426 


INSERT 


021 124 


1MSUFF 


025524 


10TVEC= 


000020 


K1PAR0= 


172340 


KIPAR1 ■- 


172342 


KIPAR2= 


172344 


KIPAR3= 


172346 


KIPAR4= 


172350 


K1PAR5-- 


172352 


KIPAR6- 


172354 


KIPAR7--. 


17235S 


KIPDR0= 


172300 


KIPDR1 = 


172302 


KIPDR2= 


1 72304 


KIPDR3= 


172306 


KIPDR4= 


172310 


KIPDR5^ 


17 2312 


K1PDR6= 


172314 


KIPOR7= 


172316 


LADMAP 


001602 


LADMES 


C26376 


LAD'vlSK 


001600 


LDDISP 


001522 


LF 


000012 


LMAD 


001520 


LSTADR 


001574 


MAMF 


017536 


MAMF1 


017622 


MAMF 2 


017634 


MANUAL 


0C5366 


MANUL1 


005424 


MANUL2 


006026 


MAPMEM 


003324 


MAPRB 


004250 



538* 


3368 


4134* 


4136* 




















4953 


51 1 3* 
























532* 


3207* 


3297* 


3300* 


3318* 


















1046 


3951 


4981* 






















535* 


1357 


1455* 


3744 


4065 


















1013 


1093* 
























1098* 


1110 
























1097 


1 104* 
























1 102 


1 106* 
























1095 


1110* 
























194 


905 
























360 


4606 


4647 






















186* 


939* 
























926 


927 


936* 






















1528 


1564 


1591 


1666 


1676 


31-22* 
















3218 


3220 


3239 


3241* 




















1 51 1 


1554 


1602 


1631 


1640 


1708 


1722 


1758 


1779 


1802 


1827 


1837 


1880 


1929 


1940 


1983 


2032 


2043 


2091 


2217 


2228 


2276 


2408 


2555 


2616 


2665 


2714 


2764 


2813 


2862 


2906 


2958 


2977 


2990 


3010 


3023 


3148# 


3417 




4056* 


























1015 


4984* 
























1"1* 


























166* 


242 


261* 


3133* 


3554* ' 


3620* 


4922 














167* 


26"" 


3134* 


3555* 


3621* 


















168* 


975 


995* 


1072* 


1181* 


1185 


2484 


3135* 


3154* 


3160* 


3171 


3228* 


3258' 


3276 


3349* 


3331 


3536* 


3539* 


3554 


3615* 


3809 


3810* 


3849* 


3854* 






169* 


1069 


1072 


1073* 


3136* 


3171* 


3176* 


3276* 


3277* 


3525* 


3528* 


3536 


3555 


3616* 


























170* 


3137* 
























171* 


3138* 
























172* 


3139* 
























173* 


31 50* 
























155* 


237 


3125* 






















I5t / 


3126* 
























157* 


3127* 
























153* 


3128* 
























1 59* 


3129* 
























160* 


3130* 
























161* 


3131* 
























1 62* 

546* 


31 32* 
1449* 


1450* 


1473- 


1474* 


3165 


3167 


3184 


3186 


3199 


3208 


3236 


3238 


3250 


3252 


3266 


3268 


3285 


3287 


3307 


3317 


3319 


4107 


4108 


4109 


4111 


1401 


5064* 
























544* 


3169 


3188 


3210 


3270 


32S9 


3309 


3321 


4139* 


4141* 








508* 


830* 
























37* 


4641 


4647 






















507* 


3oo3 


3670* 


3677 


3691* 


















541* 


1333* 


1413* 


1417 


1423 


1467* 


1468* 


146S* 


1470* 


1471 


3240 


4074 


4081 


1488 


2546 


3736* 






















3750* 


3752 
























3737 


3739 


3745 


3754* 




















1119 


1274 


1343 


13 c 3* 


1448 


















1362 


1369* 
























1364 


1465* 
























938 


952* 
























1 136 


1 143* 
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MASK4K= 017777 

MEMMAP C0 1524 2^0 



183* 966 991 1065 1419 1471 3212 3323 3842 4098 4105 4134 4139 
509* 953 954 1192 1194 1197 1394 1396 1435 1437 1440 1442 

3532 3534 3543 3545 3565 3570 3812 3814 

MEMMES 025421 962 497'* 

MMAMES 025354 932 4963* . <,„„ <„ c , ,,,- 

MMAVA 000606 233 230* 924* 930* 972 993 1024* 1030* 1067 1137 1179 1451 1465 

1489 2431 3152 3224 3255 3347 3378 3523 3613 3662 3671 3807 3847 

491 1 

MMDOWN 015674 1540 1576 1598 1672 1683 3234 3340* 

MMINIT 014300 929 1029 1140 1493 3124* 

MMORE 001554 528* 3232* 3233* 3241* 3326 3369 

MMUP 015204 1524 1560 1616 1636 1651 1712 1733 1769 1792 1815 1831 1874 1917 

1933 1977 2020 2036 2084 2204 2221 2269 2389 2545 2580 2630 2679 

272L 2778 2827 2877 2959 29S3 3003 3016 3036 3250* 3421 
144* 

1114 1 133* 
617* 

565 606* 

563 697* 1093 1109 1113 1176 1248 1261 1272 1288 1334 1342 2401 
3329 3736 3759 

562 632* 1096 1150 1212 1283 1328 1337 

636* 

672* 

676* 

680* 

684/7 

688* 1187 1253 1255 1256 1262 1265* 

692* 1139 1257 1259 1260 1266 1269* 

640* 

644* 

648* 

652* 

656* 

6S0* 

664* 

663* 

1210 4977* 

3719 5087* 

1116 4993* 

1234 5026* 

1242 5029* 

1218 5031* 

1224 5034* 

1230 5037* 

1271 5040* 

3923 5050* 

4077 51C5* 

3861 50C5* 

533* 2423* 2E38* 

180* 2442- 2446* 2453* 3590* 3643* 3746* 3747* 

564 2453* 

566 3699* 
3636 5099* 
1512 1529 1555 1565 1592 16o3 3376* 

43* 
137* 



MMVEC = 


000250 


MKAMEM 


C04210 


MPEND 


002074 


MPPATS 


0C2050 


MPRX 


002276 


MPRO 


002076 


MPR1 


002106 


MPR10 


0022 16 


MPR1 1 


002226 


MPR12 


002236 


MPR13 


002246 


MPR14 


002256 


MPR15 


00226S 


MPR2 


0021 16 


MPR3 


002126 


MPR4 


002136 


MPR5 


002146 


MPR6 


002 156 


MPR7 


002166 


MPR8 


002176 


MPR9 


002206 


MTMAP 


025462 


MTOE 


023572 


MTR 


025605 


MX1 


026071 


MX 2 


0261 10 


MX 3 


026123 


MX 4 


026142 


MX 5 


026160 



NOPES 


025706 


OEFLG 


001560 


PAfiVEC- 


00C1 14 


PBTRP 


12052 


PESRV 


1 7 4 30 


PEWNC 


0267G0 


PHYADR 


1 6054 


P I RO * 


177772 


PIRQVE. 


000240 



C20MCF0 


0-12 


CZQMCF. 


PI 1 


PMEMAP 


001540 


PRELOC 


026542 


PRGMAP 


000502 


PRQREL 


025760 


PRO 


OOCOOO 


PR) 


0CG040 


PR2 


0001 00 


PR3 


000140 


PR4 


CC0200 


PR5 


000240 


PR6 


0C030C 


PR7 


0C0340 


PS 


177776 


PSCAN 


017744 


PSW 


177776 


PWRMSG 


025641 


PWRVEC= 


000024 


RADTA3 


031622 


R4NTST 


012470 


RELOC 


015336 


RELOCF 


000500 


RELTOP 


C16460 


RELO 


017062 


RE3CHK 


005252 


RESLDR 


017270 


RE5RVD 


001516 


RESTAR 


000300 


RESTOR 


000304 


REST1 


000306 


REST2 


000324 


RESVEC^ 


000010 


ROTATE 


016210 


ru 


000006 


SAVLDR 


017350 


SAVTST 


001534 


SCAMM 


02(-,635 


SELECT 


C02546 


SELFLG 


001556 


SETAE 


017502 


SETCON 


016170 


SKPMES 


026763 


SPkNIT 


C20312 


SPRNTA 


0204.00 


SPRNTB 


0204C4 


SPRNTP 


020336 


SPRNTQ 


020324 


SPRNTO 


020342 


SPRNT1 


020350 


SPRNT2 


020366 
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3506 

253 

3601* 

5012* 

60* 



63* 
64 4 
65* 
66* 
67* 
40* 
3725 

41* 

4 199 

326 

132* 

5590 

25534 

3481* 

269 

4237 

3055 

276 

1289 



505* 
201 
202 
227 



515* 
3798 
199 
531* 
24. 6 
1778 
4121 
1298 
3901 
3893 
2471 
3722 
1309 
1645 
1517 
1946 
21 1- 
2255 
2570 



16K VER 

CROSS 

1148* 1149* 
503?# 

254 274 

3610 3650* 



839 
4233 

4998* 
295* 
3595 

3551 

288* 
4258 
3517* 
3059 
13280 
3062 
551 
226* 
228* 
229* 
233* 

18:4 
3125 
3108 
1003* 
5093* 
846* 
844* 
3741 
18C 1 
5 1 " ' * 
1315 
3905 
391 1* 
2492 
3769 
1534 
3903* 
16C3 
1953 
2122 
2282 
2915 
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289* 
3651* 



1239 
4266 

296* 
3634 

3580 

913* 
4260 

?61C* 

365S* 
1232* 
328 



3426* 
3126 
3677* 
1009 + 



846* 
3743 
2407 

1349 
3910* 

2505 
3775 
1570 



19S0 
2131 



1487 
4560 



1296 
910 



3127 
1381- 



1361 
3746-' 
34 16-' 



2522 
3827 
1682 

1763 
1967 
2140 
2300 
2947 



1255* 


1256* 


1259* 


1260* 


2409 


2411 


912* 


3043 


3045 


3049 


3517 


3549 


4085 













1405 1462 3091 
4286 4332 4431 



3627 
3233 
4764 



3128 
1382* 



3899* 
3895* 
2447 

1736 
1990 
2147 
2307 
2996 



3132 

' 1423* 



2463 

1809 
1999 
2156 
2316 
3029 



1843 
2008 



3962 
4517 



3970 
4563 



1424* 3043 



3897 3900# 



1850 
2049 
2172 
2332 



1857 
2056 
2181 
2341 



1864 
2063 
2190 
2350 



1887 1896 1905 

2070 2097 2106 

2234 2241 2248 

2357 2366 2375 



C20MCF0 


0-1 24K !V EMORY 


EXERCISER 


CZQMCF. 


P11 14-FEB-78 


08M9 


SPRNT3 


020362 


2623 


SRO 


177572 


143* 


SR1 


177574 


149* 


SR2 


177576 


150* 


SR3 


172516 


151* 


STACK = 


001 100 


31 # 


START 


002640 


198 


STARTA 


0C2654 


232 


START1 


0C6104 


281 


STKLMT= 


177774 


42* 


SWR 


001 140 


303 
1739 

4032 


SWREG 


0C0175 


196* 


swo 


000001 


95* 


SWOO = 


000001 


85* 


SW01 = 


00C002 


84* 


SW02 = 


000004 


83* 


SW03 = 


C00010 


82* 


Si-;04 = 


000020 


81* 


SfaC5 = 


000040 


80* 


SW06 •■= 


000100 


79* 


SW07 = 


000200 


78* 


SW08 = 


000400 


77* 


SW09 = 


001000 


76* 


SW1 


000002 


94* 


SW10 = 


002000 


75* 


SW11 


004000 


74* 


SW12 = 


01COOO 


73* 


S'A'13 = 


020000 


72* 


SW14 = 


040000 


71* 


SW15 = 


ICOOCO 


70* 


5 42 = 


000D04 


93* 


SW3 


000010 


90 ' 


Sv,4 


0CCC20 


91* 


Sw5 


C00040 


90* 


SivS = 


C C 1 C 


69* 


SW7 


C00200 


88* 


SW8 


4 C 


87* 


SW9 


OC'OOO 


36* 


TBITVE^ 


000014 


128* 


TEMP 


001614 


550* 


Tir.iOUT 


CO 35 2 2 


203 


TKVEC =. 


00 00 50 


135* 


TMAP 


C045S2 


1 184 


tup fad' 


CO 156 J 


537* 


TMPLAD 


001575 


543* 


TMPPT 


001550 


525* 



1GK VER 

CROS 



290 7* 
1023* 



3214* 

3315 

1078 
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2672 
235 



229 

844* 
284 
1472 

316* 
24.: 3 
4039 

871 

95 



2722 

251* 



345 
1482* 



3047 

4068 

895 



406S 
1094 
3047 
1737 



3742 

3733 3761 



295G 
1035 



3344 

3189« 

3173* 



2771 

928* 



852 
3591 
4173 
4313 



4065- 

3271* 

3177- 

3252 

3325* 

4 983" 



2820 
1028* 



1486 3057 



2870 
1491 



31 10 



3290* 3293 
3178* 3180 
3272* 3273* 



3907ff 
3141* 



863* 865 871* 

3593* 3644 3646* 

4181 4194 4201 
4329 



4094 
4081* 



3738 

4313 



895 
3742 
4358* 



925 
3761 



1025 
4003 



1094 
4022 



1737 
4024 



3184 
3279* 



4097* 4098 4113 

4104* 4105 4113 

3186 3198* 3203* 

3281 3283 3285 



3205 
3287 



3208 
3310* 



TRAPVE- 
TRTVEC- 
T ST MAP 



000034 
000014 
001530 



134* 
129* 



3156 3158 
3355 3362 



3180 
4 0-2- 



3132 

4083* 



3205 
4085* 



3262 3264 
4038 4090* 



3305 3315 
4101* 4107* 



-0 



CZQMCFO 0-124K MEMORY EXERCISER, 1 6K VER MACY11 30A(1052) 20-FEB-78 07:56 PAGE 
CZQMCF.P11 14-FEB-78 08:19 CROSS REFERENCE TABLE — USER SYMBOLS 



TST1 


006166 


TST10 


007040 


TST11 


007122 


TST12 


007206 


TST13 


007270 


TST14 


007614 


TST15 


010144 


TST16 


010766 


TST17 


01 1610 


TST2 


006312 


TST20 


012462 


TST21 


012576 


TST22 


012666 


TST23 


012760 


TST24 


013056 


TST25 


013150 


TST26 


013242 


TST27 


013336 


TST3 


006406 


TST30 


013552 


TST31 


013664 


TST32 


C14004 


TST4 


006512 


TST5 


006602 


TST6 


006676 


TST6A 


006704 


TST7 


006726 


TYPMAP 


020412 


UNEXPT 


026501 


UP 


000000 


WWP 


001612 


WWPBYT 


01 1652 


WWPBO 


011616 


WWPB1 


011712 


WWPB2 


01 1756 


WWPB3 


012326 


WWPB4 


012416 


WWPB5 


012442 


W3X9 


016256 


SAPTHD 


001330 


SAPTR 


001512 


SASTAT 


001344 


SASTEN 


001510 


SATYC 


024C50 


$ATY1 


024024 


SATY3 


024032 


SATY4 


024042 


SATY6 


024340 


SATY7 


024404 


SAUTOB 


001 134 


SBASE 


001260 


SBDADR 


001 122 


SBDDAT 


001 126 


S3ELL 


001 174 


SCDW1 


001264 



4108* 


4115 


41 17 


14:0 


1492 


15040 


1738 


1742 


17510 


1757 


177'0 




17970 






1819* 






1823 


19210 




1925 


20240 




2028 


22090 




2213 


23980 




1550* 






2405 


25500 




26070 






261 -, 


26560 




2660 


27C50 




2709 


27550 




2759 


28040 




2B08 


28530 




2S57 


29030 




1587* 






29740 






30070 






569 


15C8 


30410 


1627* 






16620 






1704* 


1744 




17070 


17 45 




1718* 


1744 




1005 


1246 


39180 


3701 


50770 




1750 


3125 


3126 


5490 


1153 


1157 


24090 






24010 






24180 


2544 




24300 


2540 




2500 


25090 




2450 


2466 


25350 


2415 


242 1 


25420 


1628 


1930 


2033 


456 


4620 




4990 


4692 


4713 


4720 


499 


4681 


4980 






4652 


46540 




46500 






4596 


46510 




4190 


46530 




471 10 






47220 






3570 


902* 


432 


4250 






3520 


587 


590 


3540 


573 


575 


3760 


4176 


4213 


4270 







3128 3132 
2432 2439 



3497* 3699* 
584 5o7 



CZQMCFO 


0-12- 


CZQMCF. 


?1 1 


SCDW2 


001256 


SCHARC 


024020 


SCKSWR 


022364 


SCMTAG 


001 100 


SCM3 = 


000000 


iCM4 = 


000004 


iCNTLG 


02331 1 


SCNTLU 


023304 


SCPUOP 


001232 


SCRLF 


001201 


SD3LK 


024654 


SDDWO 


00127C 


SDDW1 


001272 


3-DDW10 


001314 


SDDW1 1 


001316 


S0DW12 


001320 


SDDW13 


001322 


SDDW14 


001324 


SDDW15 


001326 


$D0W2 


C01274 


$DDW3 


001276 


SDDW4 


001300 


SDDW5 


001202 


SDDW6 


001204 


S0DW7 


001306 


SDDW8 


001310 


SDDW9 


001312 


SDEVCT 


001214 


SDEVM 


001 262 


SDOAGN 


014254 


SOTBL 


024644 


SEN'DAD 


14222 


SENDCT 


014156 


ScNCMG 


014260 


SENULL 


0142 75 


SENV 


001224 


S3NVM 


001225 


SCO? 


014126 


iEOPCT 


014150 


SERFLG 


001 103 


SERMAX 


001 1 15 


SERROR 


021640 
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SERRPC 


C01 1 16 


SERRTB 


CC2340 


5ERRTY 


2 2 C 6 4 


ilERTTL 


0011 12 


SESCAP 


001 1 72 


SETABL 


001224 



4280 


























4613* 


4623* 


4630 


4639* 


46440 


















4005 


4149 


4168 


4200 


43130 


















3400 


849 


850 


858 




















3700 


























3700 


3"?10 


3720 


3730 


3740 


















4325 


44JO0 
























4349 


4458 


44890 






















399* 


























3780 


1007 


1251 


3065 


4185 


4213 


4223 


4248 


4254 


4299 


4362 


4464 


4489 


4553 


4612 


4647 






















4765 


4801 


48090 






















4290 


























4300 


























4390 


























4400 


























441 


























4420 


























4430 


























4440 


























4310 


























4320 


























4330 


























4340 


























4350 


























4360 


























4370 


























4380 


























3900 


























4260 


























3082 


3098 


210. 


3107 


31090 


















4769 


48050 
























215 


836 


31000 


4208 




















858 


30840 
























3087 


31110 
























3094 


31 140 
























3950 


893 


914 


3053 


3106 


4187 


4591 


4659 


4698 










3960 


876 


4593 


4598 


4661 


















3046 


3048 


30750 






















658* 


30910 


3085 






















3430 


3S92 


4022 


4030 


4036* 


4146 


4170* 


4213 












3 .90 


4030 


4053* 


4146 




















1299 


1310 


1317 


1350 


1513 


1535 


1571 


1610 


1646 


1683 


1728 


1764 


1787 


1810 


18^.' 


1851 


1858 


1865 


1868 


1897 


1906 


1947 


1954 


1961 


1968 


1991 


2000 


2009 


2050 


2057 


2064 


2071 


2093 


2107 


2116 


2123 


2132 


2141 


2148 


2157 


2168 


2173 


2182 


2191 


2235 


2242 


2249 


2256 


2283 


2292 


2301 


2308 


2317 


2325 


2333 


2342 


2251 


2358 


2367 


2376 


2425 


2448 


2464 


2472 


2493 


2506 


2523 


2532 


2571 


2624 


2673 


2723 


2772 


2821 


2871 


2917 


2926 


2948 


2997 


3030 


3496 


3710 


3723 


3770 


3776 


3828 


41640 


4894 








3500 


573 


575 


577 


579 


581 


584 


587 


590 


592 


594 


4178* 


4179' 


4180 


4213 


4229 


4236 




















567 


7140 
























4133 


42210 
























34/0 


3824* 


4177* 


4213 




















3750 


4052* 


4204 


4206 


4213 



















CZQMCFO 


0-1 2- 


CZQMCP . 


3 ! 1 


SETENO 


CO i 330 


SFATAL 


' 2 6 


STFLG 


24 4 30 


SFI LLC 


001156 


SPILLS 


001 155 


SGDADR 


001 1 20 


SGDDAT 


001 124 


SGET42 


014212 


iGTSWR 


022436 


ShD 


000000 


SH1BTS 


001330 


SHIOCT 


023510 


SICNT 


001 104 


SI LLUP 


000756 


SI NT AG 


001135 


S1TEMB 


001114 


$LF 


001202 


SLFLG 


024427 


SLPADR 


001 1 C6 


SLPERR 


0011 10 


SWADR1 


001235 


SMADR2 


001242 


SMADR3 


001246 


SMADR4 


001252 


SMAIL 


001204 


$\1AMS1 


001224 


S ! /AMS2 


001240 


SMAMS3 


001244 


SyAMS4 


001250 


SV.3ADR 


C01332 


SV:FLG 


02J426 


SMNEW 


023327 


S^SGAD 


0C1220 


SMSGLG 


001222 


SMSGTY 


001204 


S^SvVR 


023316 


SV.TYP1 


001235 


SUTYP2 


001241 


JV;TYP3 


001245 


SMTYP4 


001251 


SMXCNT 


021626 


SNULL 


001 154 


SNWTST= 


000001 
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SCCNT 


0251 10 


SOMODE 


0251 12 


SOVER 


0211 12 


SPASS 


001212 


SPASTM 


001336 


SPRINT 


023512 



445* 


460 




















387* 


4 7 -; 2 * 




















4650* 


4653* 


4696 


4705" 


4734* 














363* 


4616 


4647 


















367# 


4647 




















351* 


573 


575 


577 


579 


581 


584 


587 


596 


3496* 


3891 


3904* 


3908* 


3909* 


















353* 


573 


575 


377 


581 


584 


587 


3494* 


3892* 


391C < 




3095* 






















900 


4326* 




















12 






















4630 






















1385 


1398 


1409 


1412 + 


1414 


1425 


4540* 


4552* 








344* 


4043* 


4044 


4046* 


4145 














295 


31 1 


330* 


















358* 


4363 


44 95 


















348* 


4180* 


4189 


4213 


4226 














379* 


4213 


4479 


4489 


4553 


4647 












4601 


4706* 


4733* 


















345* 


1436* 


1487* 


1744* 


4034* 


4050* 


4055 


4133* 


4145 






346* 


4034 


4051 * 


4145 


4203 














4 2* 






















416* 






















419* 






















422* 






















385* 


464 


468 


875 


B93 


4049 


4187 


4591 








406* 






















414* 






















41 7* 






















420* 






















464* 






















4651 * 


465^ 


4707* 


4732; 
















4335 


4493* 




















39f ,' 


4667* 


4670 


4718* 
















393* 


4672* 


4717* 


















386* 


4665 


4673* 


4700 


4704* 


4715 


4719* 










4323 


44910 




















407* 






















415* 






















418* 






















421* 






















4047 


4145* 




















366* 


4618 


4647 


















1495* 


1497 


1541* 


1543 


1578* 


1560 


1618* 


1620 


1653* 


1655 


I694i 


1714* 


1715 


1747* 


1749 


1771* 


1794* 


1816* 


1918* 


2021* 


2206* 


2390i 


2582* 


2584 


2631* 


2633 


2680* 


2682 


2730* 


2732 


2779* 


2781 


2828, 


2881 


2t31* 


2953 


3004/-' 
















4842* 


4872* 


4835* 


















4837* 


4841* 


4846 


■ 4849* 


4360* 


4887* 












4009 


402 7 


4035 


4045 


4054* 














339* 


875* 


3076* 


3079* 


3088 


31 1 1 


4041 


4060 


4036 


4146 




466* 






















325 


833 


931 


961 


1006 


1014 


1032 


1045 


1055 


1077 


1115 


1223 


1229 


1233 


1241 


1250 


127C 


1373 


1400 


1445 


1457 


3064 


3505 


3700 


37 1S 


3797 


3835 


3860 


3922 


3943 


3950 


4076 


4120 


4222 


4245 


4247 


42-1 


4253 


4292 


4298 


4324 


4327 


4334 


4348 



) 
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SPWRAD 


000752 


$PWRDN 


000610 


SPWRMG 


000746 


SPWRUP 


000662 


SOUES 


001200 


S.RDCHR 


022670 


SRDLIN 


023010 


SRDOCT 


C23340 


SRDSZ = 


C00010 


SSAVR6 


00C762 


SSCOPE 


020630 



4439 


4446 


4452 


4457 


48^0 


4870 


4942 


4952 


328* 








295* 


32° 


856 




326* 








305 


311* 






377* 


4213 


4383 


4470 


4396* 


4432 






4424* 


4518 






1379 


1406 


1463 


4509* 


4417* 








304* 


312 


313* 


314. 


1505 


1551 


15S8 


1623 


221C 


2399 


2551 


2608 


4001 * 









SSETUP^ 000130 

SSTUP = 177777 

SSVLAD 021056 

SSVPC = 00C010 

SSWR = 167400 



5SWREG 


001 226 


SSWRMKr. 


CC0340 


STESTN 


C01210 


ST1MES 


C01 1 70 


STKB 


001 146 


STKS 


001 144 


STMPO 


001 150 


JTMP1 


001 162 


STMP2 


001 164 


STMP3 


001 166 


STN 


000032 



ST PB 


001 


152 


STPFLG 


001 


157 


STPS 


001 


150 



) 



1695 1697 
2392 2547* 
2830 2879* 



1209 1217 

3086 3093 

4175 4104 

4361 4382 



4559* 4611 



1705 


1719 


1752 


1775 


1798 


1820 


1922 


2025 


2706 


2756 


2805 


2854 


2904 


2975 


3008 


3039 



4017 


4048* 
























213* 


21 8 
























1* 


12 


17 


13 


19 


20 


21 


22 


23 


24 


329 


374 


375 


376 


859 


1510 


1553 


1590 


1630 


1665 


1707 


1721 


1754 


1777 


1800 


1825 


1927 


203€ 


2215 


2401 


2553 


'2613 


2662 


2711 


2761 


2810 


2859 


2906 


2977 


3010 


3072 


3077 


3096 


31 10 


31 1 1 


3993 


3994 


3995 


3996 


3997 


4008 


4020 


4022 


4023 


4028 


4029 


4030 


4037 


4038 


4039 


4051 


4054 


4145 


4156 


4157 


4158 


4159 


4160 


4173 


4181 


4194 


4201 


4213 












397* 


6/8 
























1* 


24 


25 


3997 


3998 


4024 


4025 














30S* 


4049* 
























279 + 


374* 


3041 * 


3077* 


4037* 


4044 


4047* 


4145 












363* 


43C'G 


4317 


434 1 


4400 


4406 
















362* 


430 b 


4215 


4333 


4365* 


4398 


4404 














370* 


579 


581 


534 


592 


594 


596 


3377* 


3387* 


3389* 


3895* 


3899* 


3907* 


371* 


592 


594 


596 


3896* 


















372* 


970* 


971* 


974* 


9S5* 


13£3 


141 1 














373* 


598 


950* 


9 .' 3 * 


932 + 


S£:4* 


986* 


1412 


4893* 










1* 


12 


1435 


1510- 


1541 


1553* 


1578 


1590* 


1618 


1630* 


1653 


1665* 


1694 


1707* 


1714 


1716 


1721* 


1734 


1747 


1754* 


1757 


1771 


1777* 


1794 


1B00* 


1816 


1819 


1025* 


1916 


1921 


1927* 


2021 


2024 


2030* 


2206 


2209 


2215* 


2390 


2401* 


2547 


25=3* 


2582 


2607 


2613* 


2631 


2656 


2662* 


2680 


2705 


2711* 


2730 


2755 


2761* 


2779 


2604 


2810* 


2828 


2853 


2859* 


2879 


2906* 


2951 


2977# 


3004 


3010* 


365* 


4636* 


4647 






















369* 


4535 


464 7 






















364* 


4634 


4647 






















465* 


























280* 
4213 
4- J 26 


34 2* 


1743* 


3042- 


3992 


4026 


4048* 


4049 


4054 


4062 


4124 


4146 


4172 


4427 


4443 


■'•166 


4484 


4468* 
















1049 


1050 


1092 


3509 


4279 


4904* 
















3C92 


4274 


47 53* 






















4564 


4585* 


467' 























STTYIN 022274 

STYPAD C2 r; l52 

STYPDS 024432 

STYPE 023540 

$ Tv rPEC 02:.w54 4357 4515 4622 4629 4634* 

STYPEX C 2-1022 4640 46-"- 2 4645* 

STYPDC 0247 10 1240 4234 4267 4333 4840* 

STYPON 024724 4839 4842* 

STYPOS 024664 3963 397 1 4123 4237 4835* 



III!!: 



W 
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SUN IT 


001216 


391* 


























SUNITM 


001340 


467* 


























SUSWR 


001230 


398* 


























SVECT1 


001254 


423* 


























SVECT2 
SVERPC 


001256 
001514 


4240 
5040 


5 7 5 


577 


579 


581 


584 


587 


590 


592 


594 


4236* 


4237* 




SXTSTR 
SOFILL 


020654 
0251 1 1 


401 1* 
4836* 


4840* 


4850 


4836/t' 




















$40CAT= 


**-»*** u 
032110 


4008 
190* 

453** 


4183 

194* 
45'/-* 


205* 
457* 


213 
534* 


214* 
697* 


215* 

853 


218* 
908 


219* 
31 1 1 


307 
31 15 


331 
4145 


339* 
4146 


380 
4213 


452 
4306 






4488* 


4499 


4495 


4F53 


4647 


4735* 


4809,: 


5321* 












.CONST 


001610 


54e* 


1454* 


1707 


1721 




















.EIGHT 


001642 


568* 


4736 
























.ERRT8 


001640 


567* 


4242 
























.MPPAT 
.MPRX 


001634 
001630 


565# 
563* 


1754 
2431 


2438 


2461 


2499 


37C5 


3749 


3764 


3819 


3877 








.MPRO 


001626 


562* 


2455 
























.PBTRP 
,P!£SRV 


001632 
001636 


564* 
566* 


2442 
2446 


2453 


3746 




















.RESRV 


001524 


561* 


























.STACK 


001622 


560* 


1482 
























.TST32 


001644 


569* 


4079 
























.5ASTA= 


***„.** u 


4651 


4654 
























.SX 


001330 


452* 


457 
























.3X9 


007302 


1825* 
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AEORT 
CKSWR 

CKWD 



COWMEN 

ENDCOM 

ERROR 

ESCAPE 

GETPRI 

GETSWR 

GTSWR 

LDPDR 

MORETA 

MULT 

NEWTST 



POP 



PUSH 

RDCHR 

RDDEC 

RDLIN 

RDOCT 

REPORT 

RESRF.G 

SAVREG 

SCOPE 

SCOPEX 

SCOPIN 

SE.TPRI 

SETUP 

SIMTRP 

SKIP 
SLASH 
SPACE 
STARS 



1* 
1* 
1895 
2104 
2280 
2621 

1* 
1954 
2153 
2329 



1241 
4942 



3987* 
3987* 



1 142 

1586 
1 794 
2023 
2562 
2973 



260 
4002 
1307 
1894 
2113 
2289 
2670 
1514 
1986 
2162 
2333 

138* 
12 

138* 
138* 
138* 
897 

3124 
447 
138* 
138* 

2390 
138* 

3852 
931 

1373 

4952 
138* 

3809 

4429 

4514 
1376 
138* 



A056 

4006 

138* 



138* 
138* 

138* 
554 
1 146 
- 618 

1 796 

2 038 
26C6 
3004 
3413 



3164 
41 "6 
1515 
1903 
2120 
2298 
2720 
1605 
1996 
2169 
2347 
833 
138* 



890* 
3126 



1495 

2547 

316 

3882 
961 
1399 

297 

3816 



047 
1237 
4284 
1757 

621 

211 

553 
1203 
1626 
1E16 
2040 
2631 
3006 
3415 



3197 
4155 
1532 
1944 
212y 
23C5 
2769 
1723 
20C5 
2178 
2354 
1476 



1541 
2582 
317 
3974 
1006 
1h,5 

303 
3875 



1376 
4330 

631 

220 

570 
1206 
1653 
1813 
2083 
2655 
3066 
3423 



3235 
4197 
1607 
1951 

2133 
2314 
2818 
1760 
2045 
2187 
2363 

1480 



1578 
2631 



225 
572 
1277 
166 
1833 
2080 
26S0 
3117 
3425 



3407 

1643 
1958 
2145 
2323 
2868 
1339 
2053 
2230 
2372 



1618 
2630 
2528 
4541 
1031 
3063 

2497 
3952 



1403 1460 
4429 4515 



293 
602 
1231 
1690 
1835 
2206 
2704 
3123 
3446 



3500 

1680 
1965 
2154 
2330 
2914 
1847 
2060 
2238 
2567 



1653 
2730 
3391 
4708 
1045 
3505 

3380 
4511 



3089 
4561 



309 
604 
1323 
1693 
1376 
2208 
2730 
3145 
3448 



1725 

1983 
2163 
2339 
2923 
1854 
2067 
2245 
2992 



1694 
'2779 
3408 
4709 
1055 
3700 

3398 
4654 



1878 
2223 
27.4 



3577 3612 



1761 
1997 
2170 
2348 
2945 
1861 
2093 
2252 
3025 



1714 
2828 
3510 
4720 
1077 
3718 

3481 
4656 



380 
951 
1366 
1703 
1913 
2225 
2779 
3244 
3480 



1784 
20C6 
2179 
2355 
2994 
1883 
2103 
2278 



1747 
2879 
3602 
4729 
1115 
3797 

3520 
4677 



383 
1019 
1358 
1714 
1920 
2271 
2803 
3249 
3514 



3661 

1807 
2047 
2188 
2364 
3027 
1893 
2112 
2288 



1841 1848 1855 1862 

2054 2061 2068 2095 

2232 2239 2246 2253 

2373 2490 2520 2568 

1902 1942 1950 1957 

2119 2128 2137 2144 

2297 2304 2313 2322 



1771 
2961 
3640 
4795 
1209 
3835 

3537 
4711 



1794 
3004 
3727 
4947 
1217 
3860 

3633 
4722 



1223 
3922 



3703 
4753 



1229 
4076 



3743 
4904 



1232 
4119 



449 
1022 

1495 
1717 
1936 
2273 
2828 
3334 
3516 



45* 
1038 
1503 
1747 
1938 
2390 
2852 
3339 
3607 



458 
1091 
1541 
1750 
<979 
2397 
2879 
3372 
3609 



471 
1122 

1549 
1771 
1981 
2547 
2902 
3375 
3654 



501 
1 131 
1578 
1773 
2021 
2549 
2961 
3394 
3658 
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TABLE — 
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SEO 0202 




3694 


3698 


3732 


3735 


3756 


3758 


3784 


3788 


3872 


3874 


3387 


3890 


3914 


3917 


3989 




4152 


-213 


4305 


43! 8 


4363 


4417 


4497 


4554 


4558 


4570 


4649 


4740 


4812 


4959 


4962 




51 16 


5118 


5255 


5257 


5304 


5306 




















SWRSU 


10 


1380 


G590 


























SWR0R3 


1 v 


2074 


2079 


2134 


2199 


2259 


2264 


2379 


2384 


3473 












SlREGS 


14950 


1497 


1543 


1F10 


162C 


1655 


1697 


















TYPADR 


10 


1 048 


1059 


1 OcJl 


3508 


4278 




















TYPBIN 


1 


1380 




























TYPB.N 


1 






























TYP3YT 


1 


4123 


4281 


























TYPDEC 


10 


1380 


3088 


4270 
























TYPDS 


1 ff 


308S 


4271 


























TYPE 


1 


325 


esa 


931 


961 


1006 


1014 


1032 


1045 


1055 


1077 


1115 


1209 


1217 


1223 




1229 


1233 


1241 


1373 


1*00 


1445 


1457 


3064 


3086 


3093 


3505 


3700 


3718 


3797 


3835 




3860 


3922 


3943 


3950 


4076 


4120 


4175 


4184 


4222 


4245 


4247 


4251 


4253 


4292 


4298 




4324 


^326 


4334 


4348 


433C 


4381 


4439 


4446 


4452 


4457 


4463 


4465 


4468 


4473 


4478 




4547 


^549 


4S1 1 


48C0 


4870 


4942 


4952 


















T YPN AM 


1 


1380 


882 


























TYPNUM 


1 


1330 




























TYPQC 


1 " 


1 237 


4231 


4264 


4330 






















TYPOCS 


1 h 


1380 


3958 


3966 
























TYPOCT 


1 » 


1380 


1236 


4229 


4263 


4329 




















TYPON 


10 






























TYPOS 


1 <? 


396. 


3968 


4125 


4284 






















TYPTXT 


1* 


1380 




























SCKWD 


1 * 


1 308 


1348 


1516 


*533 


1569 


1608 


1644 


1681 


1726 


1762 


1785 


1808 


1842 


1849 




1856 


1 853 


1886 


1895 


'904 


1945 


1952 


1959 


1966 


1989 


1998 


2007 


2048 


2055 


2062 




2069 


2096 


2105 


21 14 


2121 


ii30 


2139 


2146 


2155 


2164 


2171 


2180 


2189 


2233 


2240 




2247 


2254 


2281 


2290 


2239 


2306 


2315 


2324 


2331 


2340 


2349 


2356 


2365 


2374 


2423 




24S1 


2521 


2530 


2569 


2622 


2671 


2721 


2770 


2819 


2869 


2915 


2924 


2946 


2995 


3028 


S1NDN 


1# 


• 526 


1564 


1591 


I66t, 


1676 




















SINMM 


1* 


1 51 1 


1554 


1602 


-.631 


1640 


1703 


1722 


1758 


1779 


1802 


1827 


1837 


1880 


1929 




1 940 


1933 


2032 


2043 


2031 


2217 


2228 


2276 


2408 


2555 


2616 


2665 


2714 


2764 


2813 




2362 


2906 


2977 


2390 


3010 


3023 


3416 


















$MMDN 


1 


1 53E 


1574 


1596 


1670 


1686 




















SMMUP 


1 * 


1 522 


1558 


1614 


1634 


1649 


1710 


1731 


1767 


1790 


1813 


1829 


1872 


1915 


1931 




1975 


2018 


2034 


2C82 


2202 


2219 


2267 


2387 


2577 


2628 


2677 


2727 


2776 


2825 


2875 




2931 


3001 


3014 


3034 


3419 






















SSCKWD 


1 


1293 


1309 


1316 


134 9 


1517 


1534 


1570 


1609 


1645 


1682 


1727 


1763 


1786 


1809 




134 3 


1 850 


1857 


1864 


18S7 


1896 


1905 


1946 


1953 


1960 


1967 


1990 


1999 


2008 


2049 




2056 


2063 


2070 


2097 


2106 


21 15 


2122 


2131 


2140 


2147 


2156 


2165 


2172 


2181 


2190 




2234 


2241 


22-*8 


2255 


2282 


2291 


2300 


2307 


2316 


2325 


2332 


2341 


2350 


2357 


2366 




2375 


2424 


2447 


2463 


2471 


2492 


2505 


2522 


2531 


2570 


2623 


2672 


2722 


2771 


2820 




2870 


2916 


2925 


294 " 


2996 


3029 


3721 


3769 


3774 


3826 












SSCMRE 


333* 






























SSCMTM 


333* 


370 


371 


372 


373 






















SSESCA 


1 


1380 




























SSNEWT 


1 ft 


1360 


1495 


1541 


1578 


1616 


1653 


1694 


1714 


1747 


1771 


1794 


1816 


1918 


2021 




2206 


2390 


2547 


2582 


2631 


2630 


2730 


2779 


2828 


2879 


2961 


3004 








$SSETM 


875.=- 






























SSSKIP 


1* 


1380 


1757 


























.CHBHD 


2961* 


2963 




























.C1 1 


2390# 


2392 




























.DIDBH 


2680* 


2682 




























.D1D3L 


26310 


2633 




























.DIDO 


2582* 


2584 
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SEi 


.DIPDO 


2730* 


2732 
























. DPDBH 


28280 


2830 
























.DPDBL 


27790 


2781 
























.EOUAT 


10 


28 
























.ERROR 


10 


1299 


1310 


1317 


1350 


1518 1535 


1571 1610 


1646 


1683 


1728 


1764 


1 787 


1810 




1 344 


1 851 


1858 


1865 


163B 


1897 1906 


1947 1954 


1961 


1968 


1991 


2C00 


2009 


2050 




2057 


2064 


2071 


2098 


2107 


21 16 2123 


2132 2141 


2148 


2157 


2166 


2173 


21 82 


2191 




2235 


2242 


2249 


2256 


2283 


2292 2301 


2308 2317 


2326 


2333 


2342 


2351 


2358 


2367 




2376 


5425 


2448 


2464 


2472 


2493 2506 


2523 2532 


2571 


2624 


2673 


2723 


2772 


2821 


.HEADE 


2871 

1 


2917 
2 


2926 


2948 


2997 


3030 3498 


3710 3723 


3770 


3776 


3828 


4894 






. KT 1 1 


1 


140 
























.MARHD 


28790 


2831 
























.SCOPE 


10 


1504 


155C 


1537 


1627 


1662 1704 


1718 1751 


1774 


1797 


1819 


1921 


2024 


2209 


.SETUP 


2393 


2550 
188 


2607 


2656 


2705 


2755 2B04 


2BE3 2903 


2974 


3007 


3030 








.SWRHI 


1 


13 
























.SWRLO 


1 r> 


250 
























. TM7 


1714* 


1716 
























.SACT1 


10 


209 
























.S-APTB 


10 


3810 
























.SAPTH 


1 


447 
























.SAPTY 


10 


^647 
























.SASTA 


1 


469 
























.SCATC 


10 


188 
























.SCMTA 


1 


333 
























.SDB2D 


1 


























.SDB20 


1 


























.SDIV 


10 


























. 5.E0P 


1 


2056 
























. SERRO 


1 


4150 
























.SERRT 


1 rr 


4213 
























. SMOLT 


10 


























. SPOWE 


1 


291 
























.SRAUD 


1 r 


























. SSOC'E 


10 


























.SRCOC 


10 


4 495 
























. iREAD 


1 ~ 


4303 
























. JR2AZ 


1 


























.SSAVE 


1 



























.STYPO 
.$40CA 
. 1 170 



ABS. 032110 



4740 
4568 



4*% 
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ERRORS DETECTED: 

CZQMCF. BIN, CZQMCF . LST/CRF/SOL/NL: TOC=CZQMCF . SML , CZQMCF . P1 1 
RUN-Tir.'E: 21 28 1 SECONDS 
RUN-TIME RATIO: 130/51=2.5 
CORE USED: 39K (77 PAGES) 



